SQL med DataEnvironment

Følgende er hvordan man henter en record ud af en database og smidder den ind i en combobox, håber du kan rette det til, ellers må du jo spørge :O)

Du skal bruge referencen Microsoft DAO 3.51 eller 3.6

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\adressebog.mdb")
Set rs = db.OpenRecordset("SELECT * FROM adressebog")
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        Combo1.AddItem rs!navn
        rs.MoveNext
    Loop
End If
End Su

/Tubber

End Sub og ikke End Su

Ja, men jeg har jo et DataEnvironment hvor jeg har forespørelsen, kan jeg ikke ændre dens qeury ?

Kunne man få lidt source ?

tubber >> af hvad ?

lidt kode, er ikke helt med på hvad du mener :O)

det er jo et component... DataEnvironment

data1.Recordset

det er det jeg lige kan komme frem til ? ellers kan jeg ikke hjælpe.
Bruger aldrig de data kontroller, bruger altid SQL :O)

/Tubber

det er også sql... men hvordan ændre jeg den ?

lukker