Sì era così e mancava anche in Ora.
Adesso è OK.
codice:
RST2.Source = "SELECT Titolo, Nome, Cognome, Giorno, Mese, Anno, Ora FROM TblAppunta WHERE Giorno = '" & (FrmAppunTo.TxtG.Text) _
        & "' And Mese='" & (FrmAppunTo.LblM.Caption) & "' And Anno = '" & (FrmAppunTo.TxtA.Text) & "' And Ora = '" & (FrmAppunTo.TxtOraAp.Text) & "'"
        RST2.Open , Cns2, adOpenDynamic, adLockOptimistic
Grazie Oregon.