Yo utilizo el siguiente codigo para buscar un registro en especifico en una determinada tabla:
Private Cnn As ADODB.Connection
Private Rst As ADODB.Recordset
Dim strQuery, strConexion As String
Private Sub cmdBuscar_Click()
Screen.MousePointer = 11 ' PUNTERO DE RELOJ
Set Cnn = Nothing
Set Rst = Nothing
Set Cnn = New ADODB.Connection
Set Rst = New ADODB.Recordset
strQuery = "SELECT IdCliente, NombreCompañía FROM Clientes WHERE " & _
"IdCliente='" & Trim(txtBuscar.Text) & "';"
Cnn.Open strConexion
With Rst
.Open strQuery, Cnn, adOpenStatic, adLockReadOnly, adCmdText
If .RecordCount <> 0 Then
txtNombre.Text = !NombreCompañía
txtDireccion.Text = !Dirección
Else
txtBuscar.Text = ""
txtNombre.Text = ""
txtDireccion.Text = ""
txtBuscar.SetFocus
MsgBox "NO SE ENCONTRARON REGISTROS", vbExclamation, "BUSCAR"
End If
.Close: Cnn.Close
End With
Set Rst = Nothing
Set Cnn = Nothing
Screen.MousePointer = 1 'PUNTERO POR DEFECTO
End Sub
Private Sub Form_Load()
strConexion = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB"
End Sub
Pega este codigo e inserta 3 caja de texto y un Command Button