Fout inlogcode

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '= AND wachtwoord=' at line 1

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '= AND wachtwoord=' at line 1

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        MysqlConnection = New MySqlConnection
        MysqlConnection.ConnectionString = "Database=test; Data Source=localhost; User Id='root'; Password=''"
        MysqlConnection.Open()

        Dim Myadapter As New MySqlDataAdapter
        Dim sqlquary = "SELECT * FROM leden WHERE gebruikersnaam='" & UsernameTextBox.Text & "' AND wachtwoord='" & PasswordTextBox.Text & "';"
        Dim command As New MySqlConnection
        command.Connection = MysqlConnection
        command.CommandText = sqlquary
        Myadapter.SelectCommand = command
        Dim Mydata As MySqlDataReader
        Mydata = command.ExecuterReader
        If Mydata.HasRows = 0 Then
            MsgBox("Error: Wachtwoord of gebruikersnaam is verkeerd")
        Else
            Form1.Show()
            Me.Close()
        End If
    End Sub

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        MysqlConnection = New MySqlConnection
        MysqlConnection.ConnectionString = "Database=test; Data Source=localhost; User Id='root'; Password=''"
        MysqlConnection.Open()
 
        Dim Myadapter As New MySqlDataAdapter
        Dim sqlquary = "SELECT * FROM leden WHERE gebruikersnaam='" & UsernameTextBox.Text & "' AND wachtwoord='" & PasswordTextBox.Text & "';"
        Dim command As New MySqlConnection
        command.Connection = MysqlConnection
        command.CommandText = sqlquary
        Myadapter.SelectCommand = command
        Dim Mydata As MySqlDataReader
        Mydata = command.ExecuterReader
        If Mydata.HasRows = 0 Then
            MsgBox("Error: Wachtwoord of gebruikersnaam is verkeerd")
        Else
            Form1.Show()
            Me.Close()
        End If
    End Sub

Dim myConnection As New MySqlConnection("Database=test; Data Source=localhost; User Id='root'; Password=''")
Dim sqlString As String = "SELECT * FROM leden WHERE gebruikersnaam='" & UsernameTextBox.Text & "' AND wachtwoord='" & PasswordTextBox.Text & "';"
Dim mySqlCommand As MySqlCommand = New MySqlCommand(sqlString, myConnection)
Dim myData As MySqlDataReader

Try
    myConnection.Open()
    myData = mySqlCommand.ExecuteReader

    If myData.Read() Then
        'Correcte
        'Form1.Show()
        'Me.Close()
    Else
        'Foute gegevens
        'MsgBox("Error: Wachtwoord of gebruikersnaam is verkeerd")
    End If
    myData.Close()
Cach ex As Exception
    MessageBox.Show(ex.Message)
Finally
    myConnection.Close()
End Try

Dim myConnection As New MySqlConnection("Database=test; Data Source=localhost; User Id='root'; Password=''")
Dim sqlString As String = "SELECT * FROM leden WHERE gebruikersnaam='" & UsernameTextBox.Text & "' AND wachtwoord='" & PasswordTextBox.Text & "';"
Dim mySqlCommand As MySqlCommand = New MySqlCommand(sqlString, myConnection)
Dim myData As MySqlDataReader
 
Try
    myConnection.Open()
    myData = mySqlCommand.ExecuteReader
 
    If myData.Read() Then
        'Correcte
        'Form1.Show()
        'Me.Close()
    Else
        'Foute gegevens
        'MsgBox("Error: Wachtwoord of gebruikersnaam is verkeerd")
    End If
    myData.Close()
Cach ex As Exception
    MessageBox.Show(ex.Message)
Finally
    myConnection.Close()
End Try