Problemas para rellenar el datagrid

[txetxo]

Hola

Tengo el siguiente codigo

Private Sub Calendar1_Click()
Dim fecha As String
fecha = Calendar1.Value
' Indicar la base de datos a usar
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\josetxo\Escritorio\pruebas VB y BD\datos.mdb;Persist Security Info=False"
Adodc1.CursorType = adOpenDynamic
'para hacer busquedas utilizamos
Adodc1.RecordSource = "SELECT * FROM encuentros WHERE fecha = '" & fecha & "'"
'Adodc1.Refresh
While Adodc1.Recordset.Fields("fecha") = fecha

Wend
End Sub

Pero todabia ando algo verde con las propiedades de algunos componentes y no se como hacer para que el datagrid se me cargue solo con los encuetros que se disputan el dia elegido en el calendar1 (e.j: 04/12/2005).

¿alguien me puede ayudar?

Gracias de antemano.