codice:
' copia in un form
Private Sub Text1_Change()
   Dim rs As ADODB.Recordset
   Dim sSql As String
   If IsDate(Text1.Text) = True Then
      sSql = "select [nome campi] from [Nome tabella] where [campo con criterio] = '" & CDate(Text1.Text) & "'"
      rs.Open sSql
      'esegui le operazioni sul recordset
      rs.Close
   End If
End Sub