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?

[Ganzediep]

There should be an error message, because you are using a forward slash instead of a backslash in the file to open :

cn.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "/workers.mdb;"

Could be you used entered it wrong here, in that case, are you sure there is data in the database?

[danielb]

well, i don't think this is the problem...
the recordset is working, if I'm to search or disply values in it in any other way, but the datagrid is not responding to this.
thank you anyway
daniel

[brucevde]

I believe you need to use Client Side cursor when data binding.

cn.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "/workers.mdb;"
 
rs.CursorLocation = adUseClient
 
rs.Open "select workers.* from workers", cn, adOpenStatic, adLockOptimistic

[danielb]

thank you very much! it solved it...