' 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"

' Servername und Benutzerdaten
Dim sServer As String 
Dim sUsername As String 
Dim sPassword As String 
Dim sDBName As String 
Dim sTable As String

' Servername und Benutzerdaten
sServer = LogInFenster.txtLogin.Text
sUsername = LogInFenster.txtUsername.Text
sPassword = LogInFenster.Password.Text
sDBName  = LogInFenster.DBName.Text
sTable = LogInFenster.Table.Text