Visual Basic - Error variable Recordset de ADO

hola que tal,

Tengo una duda y creo que es debido al tipo de variable...

Yo tengo una codificacion DAO algo como esto:
If Rs.EOF Then
Rs.AddNew
Rs("Campo1")=Text1.Text
Rs("Campo2")=Text2.Text
Rs.Update
Exit Sub
End If

Pero al hacer esto mismo en un programa bajo codigo ADO me da error al leer la linea de If
Indicando de que la variable no esta declarada o que no se permite y que se cerrara, es decir, en resumen, da el error y no lee como en la variable recordset DAO

Entonces pregunto: ¿Es que la variable Recordset ADO hay que declararle esto de otra forma? a diferencia de la de DAO que si lo acpeta.

Muchisimas gracias por tu ayuda
Atte. carlos

Para que trabajes con ADO es necesario declarar la referencia:
Microsoft Active Data Objects 2.7 Library
y te paso un ejemplo de como te conectarias y hacer una consulta:
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Private Sub Form_Load()
Conectar
LlenaListBox
End Sub
Sub Conectar()
On Error GoTo Errores
Dim Ruta As String
Dim NomBase As String
NomBase = "BD.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
Errores:
If Err.Number <> 0 Then Errores
End Sub
Sub Errores()
Msg = "Error Ocasionado Por:" + Chr(13) + Err.Description
MsgBox Msg, vbCritical, "Error" + Str(Err.Number)
Err.Clear
End Sub

Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Sub LlenaListBox()
List1.Clear
List1.Visible = True
sql = "Select DNI,Nombre From T_Datos_Empleados Order By Nombre"
Registro
Rec.Open sql, cnbase
For i = 1 To Rec.RecordCount
List1.AddItem Rec!Nombre
Rec.MoveNext
Next i
End Sub

Para Guardar te quedaría igual:
If Rec.EOF Then
Rec.AddNew
Rec("Campo1")=Text1.Text
Rec("Campo2")=Text2.Text
Rec.Update
Exit Sub
End If

uhmmm ok, si voy a usar el codigo que me indicas amigo, yo ya estoy referenciado a la libreria de ADO que indicas y ya estoy conectado a la BD pero para evitar que el codigo de error cuando la BD esté vacia, por eso indiclo lo de la sentencia IF. Si no hay nada en la BD hacer un registro ficticio que luego se podra borrar al meter más registros. Ese codigo del IF está en una rutinia llamada Sub AutoRegistro.

Dale, voy a revisar el codigo y cualquier cosa posteo
gracias amigo