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.

[jc_moty]

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).

Aclarando, el dataGrid muestra en tiempo real las acciones que haces con el Adodc.
El punto es que la propiedad DataSource de la Grid debe ser igual al Adodc .. digamos:

Código:

Set DataGrid1.DataSource = Adodc1

Otra cosa, cada vez que cambies la propiedad RecordSource del Adodc, utiliza el Adodc.Refresh

Código:

Adodc1.RecordSource = "SELECT * FROM encuentros WHERE fecha LIKE '" & fecha & "'"
Adodc1.Refresh 

Saludos