Giusto:
codice:
Public Sub cmdShow_Click()

Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Dim datDa As Date
Dim datA As Date

If txtDa.Text <> "" Then
    datDa = CDate(txtDa.Text)
    datDa = DatePart("m", datDa) & "/" & DatePart("d", datDa) & "/" & DatePart("yyyy", datDa)
Else
    intMsg = MsgBox("Inserire data inizio", vbOKOnly + vbExclamation, "Errore!")
End If
If txtA.Text <> "" Then
    datA = CDate(txtA.Text)
    datA = DatePart("m", datA) & "/" & DatePart("d", datA) & "/" & DatePart("yyyy", datA)
Else
    intMsg = MsgBox("Inserire data Fine", vbOKOnly + vbExclamation, "Errore!")
End If

    db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "dballarmi.mdb"

    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open
    
    SQL = "SELECT * FROM alarm_table WHERE Data BETWEEN #" & datDa & "# AND #" & datA & "#"

    Set rs = conn.Execute(SQL, , adCmdText)

    ' Connette il Recordset al DataReport.
        lblDa.Caption = datDa
    Set rptAllarmi.DataSource = rs
    
    If intMsg <> 1 Then

        rptAllarmi.WindowState = vbNormal
        rptAllarmi.Caption = "Report dal " & datDa & " al " & datA
        rptAllarmi.Show vbModal
    Else
        frmMain.SetFocus
    End If
    
    rs.Close
    conn.Close

End Sub
In pratica vorrei che anche l'etichetta lblDa che è nel report si impostasse alla data di inizio che scrivo nel textbox. Niente di trascendentale... ma tremendamente impossibile!!