Ho inserito il codice ncome mi hai detto, ma non mi trova il record sul db nonostante ci sia. Come mai?

codice:
Set db = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\Gruming\Appuntamenti.mdb")
    sql = "select * from Appuntamento where Cliente = ('" & cmbcliente.Text & "') And DataApp >= # " & Date & "#"
Set rs = db.OpenRecordset(sql)
    txtid.Text = (rs!ID)
    txtdataApp.Text = (rs!DataApp)
    txtoraapp.Text = (rs!OraApp)
    txtcli.Text = (rs!Cliente)
    txttratt.Text = (rs!trattamento)
    txtoper.Text = (rs!operatore)
il record sul db c'è perchè la data appuntamento è il 15/02/2003.

sai darmiuna spiegazione?

per il problema di ieri ho risolto senza una list box!

avevo molta fretta...oggi devo consegnare il tutto!!

Grazie ancora Sara