Dim strVerbindung As String
strVerbindung = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
  "Flyerdruck.mdb;Persist Security Info=False"
 
With adoDatGastgeber
    .ConnectionString = strVerbindung
    .RecordSource = "Adressen"
End With