Har aldrig syslat med databaser, har provat att göra en genom VB6 och
visual data maneger. Anger att det skall vara en Access 2.0

Koden är

Option Explicit
'global dbinfo as databse
Public dbInfo As Database





Private Sub Form_Load()

Set dbInfo = OpenDatabase(App.Path & "\LottoDat.mdb")



End Sub

Private Sub Option1_Click()

Dim rsLotto As Recordset

Set rsLotto = dbInfo.OpenRecordset("Lotto", dbOpenDynaset) 'HÄR FÅR jag fel runtime error 13


Do Until rsLotto.EOF
Me.List1.AddItem rsLotto("Nr")
Me.List2.AddItem rsLotto("Datum")
rsLotto.MoveNext
Loop

end sub

vad gör jag för fel
Vill bara använda mig av VB6