VB hulp gezocht

[phobia]

Ik heb al meerdere keer Bij programmeren/VB vragen gepost.

Maar daar heb ik tot op heden geen antwoorden gekregen.

Vandaar dat ik het hier eens probeer te posten.

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???

Mijn DataBase open ik met:

Private Sub openDB()

dbfile = App.Path & "\db2.mdb"
Set ws = DBEngine.Workspaces(0)
Set db = DBEngine.OpenDatabase(dbfile, True, False)
End Sub

Vervolgens probeer ik hier de Datagrid te vullen:

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

Alvast hartelijke DANK

 

[nire]

Waarom staan er haakjes om je select statement?

Verder definieer je ook niets. Of heb je de objecten reeds op een form gedefinieerd?

 

[snb]

Over welk officeprogramma heb je het ?