Il Codice che ho inserito Adesso è funzionante, mi ero dimenticato di inserire qualche riga.Comunque nel Form di ricerca che ho creato ci sono due Dtpicker e un command Button che mi consente di trovare e stampare dei record del database compresi nell' indice di date inserite.Il codice che ho inserito in neretto è quello utilizzato per il Messaggio che mi dovrebbe apparire se non ci sono date comprese in quelle inserite nei due Dtpicker, ma non funziona mi potete aiutare Grazie, spero di essere stato chiaro mi scuso per prima.




Private Sub XPButton1_Click()
Dim Strsql As String

'<< Stringa SQL che permette di cercare tutti i clienti che hanno la stessa residenza
'<< nel DataReport
Strsql = "Select * from Rubrica Where O_F = '" & XPText1.Text & "' And [DataChiusura] between #" & Format$(DTPicker1.Value, "dd/mm/yyyy") & "# And #" & Format$(DTPicker2.Value, "dd/mm/yyyy") & "#"
'Debug.Print Strsql
'"'#And # where [DataChiusura] BETWEEN #" & Format$(Text1.Text, "mm/dd/yyyy") & "#And #" & Format$(Text2.Text, "mm/dd/yyyy") & "#"
Stampa2 Strsql


End Sub

Private Sub Stampa2(sQL As String)
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=C:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport3.DataSource = RecDati
DataReport3.WindowState = 0
DataReport3.Show
[B] If RecDati.RecordCount = 0 Then
MsgBox "Nessuna Chiamata trovata nell'indice di date inserite!", vbCritical, "ATTENZIONE"
End If End Sub