Относительно VBA:
Имеет ли значение следующее, если запись не существует:
strSQL = "Select * from tblRes where ID = '" & Forms!Pg!PID & "'"
rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
If rs.EOF Then
Означает ли rs.EOF
, что результат выбора ничего не дал?