HUr lägger jag in alla poster i en listbox?

Public Sub ConnectDB()
    Filen = App.Path + "/Databas.mdb"
    Set DB = OpenDatabase(Filen)
End Sub

Public Sub StartaDB()
 SQL = "SELECT * FROM notes;"
 Set RS = DB.OpenRecordset(SQL)
End Sub


Private Sub Form_Load()
Call ConnectDB
Call StartaDB
Do Until RS.EOF
Lista.AddItem (RS("titel"))
RS.MoveNext
Loop

End Sub

Tja, du får null ifrån databasen...

Antagligen är det därför att du inte har använt rs.MoveNext något än eller för att du inte fick något tillbaka ifrån databasen. För övrigt känns det som att du borde titta på debuggern i vb 6, den klarar sådana här fel väldigt lätt

Hittade felet, som var tämligen banalt. I första posten låg ingen info i den kollumen jag försökta få ta fram...