Amigo ya se que te ayudaron pero este framento de codigo te puede
ayudar un poco.
En esta pequea funcion se abre la base de datos con acces
Sub Abrirb(NOM As String)
Dim lugar As String
lugar = "C:\INVENTARIO.mdb"
Set dbprueba = OpenDatabase(lugar)
Set datos = dbprueba.OpenRecordset(NOM, dbOpenDynaset)
datos.MoveLast
End Sub
una vez abierta podes buscar tu dato de una
manera secuencial, en este caso estoy buscando
una dato llamado bodega una vez encontrado llamo una funcion en la
cual me muestra todos los datos encontrados
ej : text1.text = datos!NombreBodega
Dim encontro As Integer
Dim aux As String
encontro = 1
datos.MoveFirst
aux = UCase(InputBox$("Buscar codigo:", "Buscando proveedor"))
Do
If (datos!COD_BODEGA = aux) Then
Call muestraBodega
COD = 0
TXT = 0
TLF = 0
DRC = 0
encontro = 1
Else
encontro = 0
End If
datos.MoveNext
Loop Until ((datos.EOF) Or (encontro = 1))
If encontro = 0 Then
MsgBox "No se encontro el dato", vbExclamation, "Resultado"
End If
Espero que te ayude un poco