codes für ein Login Vb.net und Mysql als Datenbank

bitte helfen zu Debuggen meines codes. es ist ein login-Formular , es kann nicht laufen, weil einige Fehler in den codes. bitte helft mir.. ich weiß nicht, wie zu Debuggen.

ich bin ein Anfänger in der Programmierung.

Imports MySql.Data.MySqlClient

Public Class Form1

     ' Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cmd As New MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim con As MySqlConnection = jokenconn()
    End Sub'

    Public Function jokenconn() As MySqlConnection
        Return New MySqlConnection("server=localhost;user id=root;Database=db_ko;")
    End Function

    Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogin.Click
        Dim connString As String = "Database=db_ko;Data Source=localhost;User ID=root;"

        Dim conn As New MySqlConnection(connString)
        Dim cmd As New MySqlCommand

        Dim user As String = txtusername.Text
        Dim pass As String = txtpass.Text
        Dim reader As DataTableReader

        conn.Open()
        cmd.CommandText = "SELECT * FROM `db_account` WHERE username= '" & txtusername.Text & "' and password= '" & txtpass.Text & "', conn"
        cmd.Connection = conn

        cmd.Parameters.Add(New MySqlParameter("?UserName", txtusername.Text))
        cmd.Parameters.Add(New MySqlParameter("?Password", txtpass.Text))

        cmd.Connection = conn
        'cmd.EndExecuteReader = reader

        If reader.HasRows() Then
            MessageBox.Show("Login success!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Form2.Show()
            Me.Close()

        Else

            MsgBox("Invalid Login information.!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        conn.Close()

    End Sub

End Class

sorry für die codes falsch sind. danke Voraus!!