Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim con As New MySql.Data.MySqlClient.MySqlConnection
        con.ConnectionString = "server=x;user=x;password=x;database=x;"
        Try
            con.Open()
            Dim query As New MySql.Data.MySqlClient.MySqlCommand("SELECT" & _
              "user_name, user_password FROM x WHERE " & _
    "user_name ='?user_name' AND user_password = md5('?user_password')LIMIT 1 ;" & _
    "", con)
 
 
 
 
            query.Parameters.AddWithValue("?user_name", TextBox1.Text)
            query.Parameters.AddWithValue("?user_password", TextBox2.Text)
 
                Dim result As Object
                result = query.ExecuteScalar()
                MessageBox.Show("Herzlichen Glückwunsch. Du hast dich" & _
                  "erfolgreich angemeldet.")
 
                Form1.Show()
 
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
 
 
        Finally
            con.Close()
        End Try
    End Sub