DataGrid vullen?!?!?!

[phobia]

Ik Probeer op deze manier een datagrid te vullen

Het maken van colums en het naam geven daarvan ben ik achter.

Maar hoe moet ik nu de data erin krijgen???

Public Sub LoadData()

SQLcode = ("SELECT * FROM TblBrilAdmin")
openDB
Set RS = db.OpenRecordset(SQLcode)
DataGrid1.ColumnHeaders = True

DataGrid1.Columns(0).Visible = False
DataGrid1.Columns(1).Caption = "Order nummer"
DataGrid1.Columns.Add 2
DataGrid1.Columns(2).Caption = "Referentie"
DataGrid1.Columns.Add 3
DataGrid1.Columns(3).Caption = "Datum In"
DataGrid1.Columns.Add 4
DataGrid1.Columns(4).Caption = "Datum Uit"


db.Close
End Sub

 

[mark199]

DataGrid1.datasource = RS
DataGrid1.databind