'De esta manera se puede buscar datos sin utilizar SQL, pero con un rendimiento un poco menor
Dim BD as String
BD= "c:"
Set Db = DBEngine.Workspaces(0).OpenDatabase(BD)
Set ds = Db.OpenRecordset("productos", dbOpenSnapshot)
ds.Move 0
Do While Not ds.EOF      
    If Text1 = ds![nombre] Then
        msgbox "Encontrado", vbInformation, "Busqueda"
    End If
    ds.MoveNext
Loop

---

' Rutina para la modificacion de datos
Private Sub modificarestado()
Set Db = DBEngine.Workspaces(0).OpenDatabase("c:")
Set ds = Db.OpenRecordset("cv", dbOpenDynaset)
Form1.buscar = "numeroch =" & "'" & Text1 & "'"  
ds.FindFirst Form1.buscar
ds.Edit
ds![estado] = 1
ds.Update
ds.Close
Db.Close
MsgBox "Datos Cambiados.", vbInformation, "DATOS INGRESADOS"

End Sub

---

'Rutina para Guardar datos
Private Sub guardarcheque()
Set Db = DBEngine.Workspaces(0).OpenDatabase("c:")
Set ds = Db.OpenRecordset("cv", dbOpenDynaset)
ds.AddNew
ds![numeroch] = Val(Text1)
ds![nombre] = UCase(Text2)
ds![Monto] = Val(Text3)
ds![fechapago] = Text4
ds![estado] = 0                
ds.Update                                  
ds.Close
Db.Close
MsgBox "Datos Guardados.", vbInformation, "DATOS INGRESADOS"
End Sub