Gracias por responder tazzito, no esperaba que fueseis tan rápidos :)
he probado el código que me has puesto, quedándome esto:
Código:
Public miCnn As Connection
Public miRst As Recordset
Public miSQL As String
Public Function abrir()
'setea y abre la connection
On Error GoTo lpc
Set miCnn = New Connection
miCnn.Open ("PROVIDER =MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & datos)
Exit Function
lpc:
End Function
Private Sub cmBusc_Click()
If bucom.ListIndex = 2 Then
tip = "Nombre"
Else
If bucom.ListIndex = 0 Then
tip = "fecha"
Else
If bucom.ListIndex = 1 Then
tip = "Matricula"
Else
MsgBox "Por favor seleccione un tipo de busqueda valida.", vbCritical + vbCritical, "AresXis Talleres"
Exit Sub
End If
End If
End If
miSQL = "select * from reparaciones where" & tip & "='" & Trim(txtbusqueda.Text) & "'"
miRst.Open miSQL, miCnn
Do Until miRst.EOF
resulls.AddItem miRst("Fecha") & " " & miRst("Nombre")
miRst.MoveNext
Loop
miRst.Close
miCnn.Close
Set miRst = Nothing
Set miCnn = Nothing
el problema es que me da el mismo error que siempre me dan las BD.
"variable de tipo object o la variable de bloque witch no esta definida"
haciéndome referencia a la linea "miRst.Open miSQL, miCnn"
no se si sabrás a que puede deberse, desde ya mil gracias por todo porque ando pez con las BD