'Dataenvironment an Anwendungspfad anpassen
    Dim strCon As String
    dim strPfad As String
 
    strPfad = App.Path
    If Right$(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
 
    conString = "Provider=MSDataShape.1;Persist Security Info=False;Data" & _
      "Source=" & strPfad & "Name_der_Datenbank.mdb" & ";Data" & _
      "Provider=MICROSOFT.JET.OLEDB.3.51"
    env_Name_des_dataenvironment.con_Name_der_Connection.ConnectionString = _
    conString