Option Explicit

Private Sub Form_Load()
Dim db_file As String

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

  db_file = App.Path
  If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
  db_file = db_file & "books.mdb"

  Set conn = New ADODB.Connection
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";"
  conn.Open

  Set rs = conn.Execute("SELECT * FROM Books", , adCmdText)
  
  Do While Not rs.EOF
    List1.AddItem rs!Title
    rs.MoveNext
  Loop
  
  rs.Close
  conn.Close
End Sub