Buenas tardes amigos del foro, alguien me puede decir como puedo pasar esto a coneccion directa ?
Dim criterio As String
If Text1.text >= 100 Then
End
End If
criterio1 = "SELECT * FROM TBCAJA where fecha=#" & Format(DTPicker1.Value, "DD/MM/yyyy") & "#"
'CRITERIO = "fecha =" & Format(DTPicker1.Value, "dd/mm/YYYY") & ""
'dscaja.Recordset.FindFirst (CRITERIO)
dscaja.Recordset.Edit
dscaja.Recordset!importeinicial = txtImporteInicial
dscaja.Recordset!comparada = Text3.text 'dscaja.Recordset!trial + 1
dscaja.Recordset.Update
dscaja.Refresh
FormMenu.Timer1.Enabled = False
'Unload Me
Date = Format(Date, "DD/MM/YYYY")
'Call cargarCumples
Call cargarVacunasPendientes
gracias