' Datenbank öffnen
    Set Con = New ADODB.Connection
    With Con
       .Provider = "MSDASQL"
       .Properties("Data Source") = mstrDSNName
       .Properties("Persist Security Info") = mbolPSI
       .Properties("User ID") = mstrUserName
       .Properties("Password") = mstrPassword
       .open
    End With