Why the following code don't work; the datalist is always empty. The recordset have 80 records.

Option Explicit

Dim myConnection As ADODB.Connection
Dim myRecordset As ADODB.Recordset

Private Sub Form_Load()

Set myConnection = New ADODB.Connection
Set myRecordset = New ADODB.Recordset

myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\S\Recetas\Cocina2000.mdb;"
myConnection.Open

myRecordset.Open "Categoria", myConnection, adOpenStatic, , adCmdTable

DataList1.BoundColumn = myRecordset!cat_receta
DataList1.ListField = myRecordset!cat_descri
Set DataList1.RowSource = myRecordset

End Sub



TIA