Public Function getStrSQLConn(datasource As String, Datenbank As String) As _
  String
 
' Verbindung zu einem SQLServer
        getStrSQLConn = "Provider=SQLOLEDB;" & _
        "Integrated Security=SSPI;" & _
        "Data Source=" & datasource & ";" & _
        "User ID=" & varUserName & ";Password=" & varPassword & ";" & _
        "Initial Catalog=" & Datenbank & ";" & _
        "Connect Timeout=15;"                                         
 
End Function