Option Explicit
 
 
' Modul modADOConnection
Public oConn As ADODB.Connection
 
' Datenbank öffnen
Public Function OpenConnection(ByVal sServer As String, _
  ByVal sDatabaseName As String, _
  ByVal sUsername As String, _
  ByVal sKennwort As String) As Boolean
 
  Dim p As String
 
  On Error GoTo ErrHandler
  If oConn Is Nothing Then
    Set oConn = New ADODB.Connection
    p = "Provider=SQLOLEDB.1;"
    p = p & "Initial Catalog=&" & sDatabaseName & ";"
    p = p & "Data Source=" & sServer & ";"
    p = p & "Persist Security Info=False;"
    p = p & "Connect Timeout=45"
    With oConn
      .CursorLocation = adUseClient
      .Open p, sUsername, sKennwort
      OpenConnection = True
    End With
    Exit Function
  End If
 
ErrHandler:
  MsgBox "Es ist ein Fehler beim Öffnen der Datenbank aufgetreten." & _
    vbCrLf & CStr(Err.Number) & " " & Err.Description
End Function

Private Sub Command1_Click()
    Call OpenConnection("127.0.0.1", "Master", "sa", "$michaelbra@")
 
End Sub