' Servername und Benutzerdaten
Private Const sServer As String = "localhost"
Private Const sUsername As String = "Ihr Benutzername"
Private Const sPassword As String = "Ihr Passwort"
Private Const sDBName As String = "test"
Private Const sTable As String = "names"

Private Sub cmdConnect_Click()
  ' oConn.OpenConnection "Rechnername", _
  '  "Ihr Benutzername", "Ihr Passwort", _
  '  "Name der Datenbank"
  '
  ' Wir öffnen die Verbindung zum MySQL Server
  ' Statt 'Localhost' kann auch die IP verwendet werden. Diese
  ' erfahren Sie im WinMySQLAdmin im Register'Environment',
  ' wenn Sie auf 'Extended Server Status' klicken.
 
' Servername und Benutzerdaten
   sServer = txtLogin.Text
   sUsername = txtUsername.Text
   sPassword = Password.Text
   sDBName  = DBName.Text
   sTable = Table.Text
 
   oConn.OpenConnection sServer, _
   sUsername, sPassword, sDBName
 
  ' Statusabfrage
  If (oConn.State = MY_CONN_CLOSED) Then
    ' Falls Verbindung nicht geöffnet, Fehlerangabe!
    MySQL_Error
  Else
    ' Bei erfolgreicher Verbindung, Verbindungsdaten ausgeben
    MsgBox "Connected to Database: " & oConn.DbName, _
      vbInformation, "MySQL-Testprojekt"
  End If
End Sub