Realizar búsqueda SQL VBA Access todo desde formulario de Access
Necesito ayuda la verdad soy nuevo y bueno quiero hacer una búsqueda desde un botón buscar y que el resultado me lo asigne a una cajas de texto en el formulario, tengo la tabla cliente con los campos cedula nombre y celular. Les dejo el código
Option Compare Database
Private Sub btnbuscar_Click()
Dim buscedu As String
Dim vacio As String
Dim mySql As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
buscedu = InputBox("introdusca la cedula del cliente ")
If buscedu = "" Then
vacio = MsgBox("ingresa la cedula del cliente ", vbOKOnly)
buscedu = InputBox("introdusca la cedula del cliente ")
Else
mySql = "SELECT * FROM [cliente]"
mySql = mySql & " WHERE [cliente].[cedula]= 'buscedu'"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(mySql, dbOpenSnapshot)
( justo aca me da error dice error 3021 no hay ningun registro activo)
Me.txtcedula.Value = rst.Fields(0).Value
Me.txtnombre.Value = rst.Fields(1).Value
Me.txtcelular.Value = rst.Fields(2).Value
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End If
End Sub