Visual Basic - consulta sql en access

hola:
tengo la siguiente consulta...

RsTab.Open "Select max(codpar) as maxi " & _
"from " & Trim$(PeriArchivo) & " " & _
"where nroref=" & A_NroRef & " " & _
"and " & StrWhere & " ", dbAccess, adOpenStatic, adLockOptimistic
If Not RsTab.EOF Then
A_CodPar = A_CodPar & Str(Val(Right$(RsTab!maxi, 1)) + 1)
Else
A_CodPar = A_CodPar & Str(1)
End If
RsTab.Close: Set RsTab = Nothing

Esto hace lo siguiente... saco el mayor codigo de parentezco de un grupo familiar, para agregar el siguiente... Por ejemplo: si en un grupo familiar existe el codpar. "ME2", debo agregar a un afiliado el codigo de parentezco "ME3". Si no existe ningun cod.parentezco con "ME", le agrego el "ME1" directamente.
Esta consulta la hago solo para los cod.de parentezco "ME".
Pero resulta que en el primer registro encuentra que NO existe ningun "ME", es decir que me trae el recordset vacio. Por ende, tiene que ponerle el "ME1".
Pero al entrar el IF...
If Not RsTab.EOF Then
A_CodPar = A_CodPar & Str(Val(Right$(RsTab!maxi, 1)) + 1)
Else
A_CodPar = A_CodPar & Str(1)
End If

me dice que el RsTab.Eof no es principio de archivo, y cuando hago la consulta sql en access me da que no existe ningun "ME".
En que quedamos? esta o no vacio...
NO entiendo... porque me da este resultado...
Por favor, ayuda...
Gracias

lo que tendrias que poner es :

If Not (RsTab.EOF and RsTab.BOF) Then

OK =-)