You can also like my page on facebook https://www.facebook.com/TutorZick/
Sub LoadData()
Dim list As ListItem
Dim X As Integer
ConnectDB1
rs.Open "Select * from Information", db, 3, 3
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs(0))
For X = 1 To 7
list.SubItems(X) = rs(X)
Next X
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing
Public Sub ConnectDB()
path = App.path & "\transactions.mdb"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & path
End Sub
