I assign the data source of a dbgrid to the recordset as follow:

Private Sub Form_Load()
On Error Resume Next
Dim rs As Recordset
Dim crdatabase as Database

sPath = "c:\db\cr.mdb"
Set crdatabase = OpenDatabase(sPath)
Set rs = crdatabase.OpenRecordset("cr")
DBGrid1.DataSource = rs

'add the field names in the list
For Each fl In rs.Fields
List1.AddItem fl.Name
Next
End Sub

The problem is the dbgrid does not load any thing but the list works fine and all fields name are added...
What could be the problem of that,,Any help..Thanks


[Edited by maqmaq on 09-20-2000 at 02:05 AM]