database problem

Tags:    visual-basic

Dim db As Database
Dim rst As Recordset

Private Sub Form_Load()

Set db = OpenDatabase("film97.mdb")
Set rst = db.OpenRecordSet("film", dbOpenDynaset)

If Not rst.EOF Then rst.MoveFirst
Do While Not rst.EOF
lstFilm.AddItem rst!Titel
lstFilm.ItemData(lstFilm.NewIndex) = rst!ID
rst.MoveNext
Loop

End Sub


Hvad er der galt i ovenstående kode?
Jeg får fejlen "User-defined type not defined" på linie 1 og 2



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato


Hvad er der galt i ovenstående kode?
Jeg får fejlen "User-defined type not defined" på linie 1 og 2


Hej lasse

Går ud fra at det vb 6.0..?

Prøv at sætte referencen til ado

På din værktøjsline oppe for oven vælger du Project og så
References.
Schroll ned til du kommer til Microsoft activeX data Objects 2.7 library og afkryds checkbox'en

dette burde hjælpe

Jens



t