Option Explicit

Private objConn As ADODB.Connection
Private rsMain  As ADODB.Recordset

Private Sub Form_Load()
  Dim strPath As String

  On Error GoTo err_Handler

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

  Set objConn = New ADODB.Connection
  Set rsMain = New ADODB.Recordset

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = "Data Source=" & strPath & "datenbank.mdb"
    .Open
  End With

  With rsMain
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .Source = "SELECT * FROM tbl_Adressen"
    .Open
  End With

  Set dbgAdressen.DataSource = rsMain

  With dbgAdressen
    .BorderStyle = dbgNoBorder
    .Columns("ID").Width = 400
    .Columns("Ort").Width = 1800
  End With

exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"

  Resume exit_Sub
End Sub

Private Sub Form_Terminate()
  On Error Resume Next

  rsMain.Close
  Set rsMain = Nothing

  objConn.Close
  Set objConn = Nothing

  On Error GoTo 0
End Sub