Public db_file As String
Public con As ADODB.Connection
Public statement As String
Public rs As ADODB.Recordset
 
Private Sub Form_Load()
   OpenDB()
   ReadDB()
End Sub
 
Public Sub OpenDB()
 
db_file = "books.mdb"
 
' Open a connection.
    con = New ADODB.Connection
    con.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    con.Open
End sub
 
Private Sub ReadDB()
 
    statement = "SELECT * FROM Books ORDER BY Title"
    Set rs = con.Execute(statement, , adCmdText)
 
End sub