'Datenbank-Verbingungsobjekt separat in einem Modul
Public DBConn As ADODB.Connection

 
Public Sub setDBConn()
 
'Aus der Datei CHFCreator.ini werden die Parameter für die Datenbankverbindung
'ausgelesen
 
  Dim TmpRetStr As String * 1280
  Dim laenge As Integer
 
  Set DBConn = New ADODB.Connection
  With DBConn
 
    laenge = GetPrivateProfileString("SQL-Datenbank", "Provider", _
             "", TmpRetStr, Len(TmpRetStr), App.Path & "\CHFCreator.ini")
 
    .Provider = Left$(TmpRetStr, laenge)  'hier tritt der Fehler auf!!!!
 
    laenge = GetPrivateProfileString("SQL-Datenbank", "Data Source", _
             "", TmpRetStr, Len(TmpRetStr), App.Path & "\CHFCreator.ini")
 
    .Properties("Data Source") = Left$(TmpRetStr, laenge)
 
    laenge = GetPrivateProfileString("SQL-Datenbank", "Initial Catalog", _
             "", TmpRetStr, Len(TmpRetStr), App.Path & "\CHFCreator.ini")
 
    .Properties("Initial Catalog") = Left$(TmpRetStr, laenge)
 
    laenge = GetPrivateProfileString("SQL-Datenbank", "Persist Security Info", _
             "", TmpRetStr, Len(TmpRetStr), App.Path & "\CHFCreator.ini")
 
    .Properties("Persist Security Info") = "false"
 
    laenge = GetPrivateProfileString("SQL-Datenbank", "User ID", _
             "", TmpRetStr, Len(TmpRetStr), App.Path & "\CHFCreator.ini")
 
    .Properties("User ID") = Left$(TmpRetStr, laenge)
 
    laenge = GetPrivateProfileString("SQL-Datenbank", "Password", _
             "", TmpRetStr, Len(TmpRetStr), App.Path & "\CHFCreator.ini")
 
    .Properties("Password") = Left$(TmpRetStr, laenge)
 
    .Open
  End With
 
Exit Sub
End Sub