Imports MySqlLib3
Public Class frm_login
    Private db As New MySqlLib("http://phpmyadmin.fonderedition.bplaced.net/", True)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim name As String = TextBox1.Text
        Dim pw As String = TextBox2.Text
        Dim result As MySqlLib.ResultCollection = db.Query("SELECT * FROM `Benutzer` WHERE `Benutzername` = '" & name & "' AND `Passwort` = '" & pw & "'")
        If result.Row.Count = 0 Then
            MessageBox.Show("Login Fehlgeschlagen")
        Else
            'Leitstellenfenster Öffnen
            Übersicht.Show()
            Me.Hide()
        End If
    End Sub
End Class