Public oConn As ADODB.Connection
 
Public Function GetRemoteConnection(Optional ByVal UserID As String, Optional _
  ByVal Password As String, Optional ByVal Server As String, _
                                    Optional ByVal Database As String, Optional _
                                    ByVal PersistSecurityInfo As Boolean) As _
                                    ADODB.Connection
 
  Set GetRemoteConnection = New ADODB.Connection
  With GetRemoteConnection
    .Provider = "MSDASQL"
    .Mode = adModeShareDenyNone
    .CursorLocation = adUseClient
 
    If Len(Database) > 0 Then
        Database = ";database=" & Database
    End If
 
    .Properties("Extended Properties") = _
            "DRIVER={MySQL ODBC 5.3 Driver};" _
            & "UID=" & sUserID & ";" _
            & "PWD=" & sPassword & ";" _
            & "SERVER=" & sServer & ";" _
            & "OPTION=" & CStr(FLAG_FIELD_LENGTH Or FLAG_NO_PROMPT _
                    Or FLAG_NO_DEFAULT_CURSOR _
                    Or FLAG_NO_BIGINT _
                    Or FLAG_SAFE Or FLAG_MULTI_STATEMENTS) _
            & Database
    .Properties("Persist Security Info") = PersistSecurityInfo
  End With
End Function

  Set oConn = GetRemoteConnection("benutzer", "passwort", "127.0.0.1", _
    "datenbank")
  Call oConn.Open