datagrid with recordset

[danielb]

hello evrybody
i'm trying to connect a datagrid to a recordset using this code:

Dim WithEvents cn As ADODB.Connection
Dim WithEvents rs As ADODB.Recordset
private sub form_load()
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "/workers.mdb;"
 
rs.Open "select workers.* from workers", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
end sub

There is no error messege, but the datagrid stays empty.
what could by wrong?