Visual Basic - ESTE CODIGO ES PARA GUILLE

Si traba con ADO de tener en cuenta que base de datos tienes access 2000 o 97 no es igual, debe de hacer la conexion de la base de datos

y luego declarar una Conexion CN y luego un RS
cn=conexion
Rs=Recordeset
ya que ado no utiliza Edit

Riviza este codigo esta ya la conexion y todo des option explict
primero la de caracion
Option Explicit
Private cn As New ADODB.Connection
Private mrs As New ADODB.Recordset
Segundo la conexion
usa el evento clic del Form load

Private Sub Form_Load()
cn.Open \\\"provider =microsoft.jet.oledb.4.0; Data Source=C:\\\\directorio de la base de tados\\\\nombre base datos;persist security info=false\\\"
\\\' CN.Open es la expecificacion de la coneccion que se hace con la base de datos en este caso microsoft

mrs.Open \\\"la tabla que quire conectar\\\", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
\\\'Recordset es la variable que agrupa un conjuntos de registros de una TABLA o Mas
mrs.Index = \\\"Clave01\\\" \\\'este es el indice que `pusiste en la tabla
End Sub

If mrs.RecordCount > 0 Then
mrs.MoveFirst
mrs.Seek Array(Val(txtArti.Text))
End If
\\\'Hace una busque de un codigo existente
mrs.Find \\\"Codigo=\\\" & txtArti.Text
If Not mrs.EOF Then
MsgBox \\\"No se Permite Guardar un Código Creado !\\\", , \\\"Debe Introducir Otro Código\\\"
txtArti.SetFocus

If Not mrs.EOF Then
mrs!unidad = Val(txtCo.Text)
mrs!fecha = Format(txtFeCo.Text, \\\"short Date\\\")