'Festlegen der Variablen für Verbindung
Dim Connection As ADODB.Connection
Dim Conn As String
Dim Server As String
Dim UserName As String
Dim Password As String
Dim RecSet As Recordset
 
Dim User As String
 
Dim StrTabelle As String
Dim StrDataBase As String
 
 
 
Sub Verbindung()
 
 
'Initialisiere Connection und RecordSet
Set Connection = New ADODB.Connection
Set RecSet = New ADODB.Recordset
 
'Wert für StrDataBase
StrDataBase = "muellerdb"
 
' Server Hostname (oder IP)
Server = "localhost"
 
' Benutzerdaten
UserName = "root"
Password = ""
 
' Datenbank-Name
DBName = "muellerdb"
 
Conn = "Provider=MSDASQL.1;Data Source=MySQL;Initial Catalog=muellerdb" _
       & "Persist Security Info=False;" _
       & "User ID =" & UserName _
       & ";Mode=Read;" _
       & "Initial Catalog =" & DBName
 
' Connection öffnen
Connection.Open Conn, UserName, Password
 
End Sub