Håller på lite med databaser, men jag har problem med att få in alla poster i en listview. Programmet hänger sig när man kör igång det och jag är rätt säker på att det är loopen som det är problem med, men jag vet inte hur jag ska göra...jag har gjort såhär:

<code>
Global con As ADODB.Connection 'General Declaration

Public Sub openDb() 'Open database
On Error Resume Next
dbConString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\r2003.mdb"
Set con = New ADODB.Connection
con.ConnectionString = dbConString
con.Open
End Sub

Public Sub closeDb() 'Close database
On Error Resume Next
con.Close
Set con = Nothing
End Sub

Public Sub LoadToList() 'Load posts to list
Dim RecSet As ADODB.Recordset
Set RecSet = New ADODB.Recordset

strSQL = "Select * From Tabell"
RecSet.Open strSQL, con

Do Until RecSet.EOF
With frmMain.lstView.ListItems.Add
.Text = RecSet("ID")
.ListSubItems(1) = RecSet("Title")
.ListSubItems(2) = RecSet("Date")
.ListSubItems(3) = RecSet("Time")
End With
Loop

Call closeDb
End Sub
</code>


/Micke

Du har glömt MoveNext i Loopen. Därför får du en evigloop.

RecSet.MovNext

Ja, just det! Tack!