Simpelt eksempel på db access

Undskyld men nu virker det...... kode:

Option Explicit

' The database.
Private dbOpgaver As Database


' Show the data.
Private Sub ShowData()
Dim rsInfo As Recordset
Dim query As String
Dim i As Integer

    query = "SELECT * FROM OpgTabel ORDER BY Emne"
    Set rsInfo = dbOpgaver.OpenRecordset(query, dbOpenSnapshot)

    With rsInfo
        ' Do nothing if no records are selected.
        If .EOF And .BOF Then Exit Sub
       
        .MoveLast
        .MoveFirst
        Do While Not .EOF
            lblNavn.Caption = !Emne
            .MoveNext
        Loop
    End With
End Sub
Private Sub Command1_Click()
    ShowData
End Sub

' Open the database.
Private Sub Form_Load()
    ' Open the database.
    Set dbOpgaver = OpenDatabase(App.Path & "\Opgaver.mdb")

    ' Display the initial data.
    Command1_Click
End Sub


' Close the database.
Private Sub Form_Unload(Cancel As Integer)
    dbOpgaver.Close
End Sub

Undskyld!!!
men jeg har oprettet et spørgsmål lignende dit, men hvordan fungere dit program.

Jeg er ikke med..... hvad mener du?
Hvis du spørger mere præcist kan jeg nok svarre dig.... Jeg kigger lige på dit sprg!