ข้อถามเกี่ยวกับ vb2008 ครับ เสจแล้ว แต่มันไม่สมบูน ดูเลยครับ

Imports MySql.Data.MySqlClient
Public Class Form1
    Public conn As New MySqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        conn = New MySqlConnection("Server=************* ; port = 3306 ; user id=ngd3d1; password=123456789; database=ngd3d1")
        Try
            conn.Open()
            Dim sqlquary As String = "SELECT * FROM member WHERE Username = '" & username.Text & "';"
            Dim data As MySqlDataReader
            Dim adapter As New MySqlDataAdapter
            Dim Command As New MySqlCommand
            Command.CommandText = sqlquary
            Command.Connection = conn
            adapter.SelectCommand = Command
            data = Command.ExecuteReader
            While data.Read()
                If data.HasRows() = True Then

                    If data(2).ToString = password.Text Then

                        MsgBox("Login" )         ตรงนี้มันคืออะไรครับ

                    Else
                        MsgBox("Failed Login")             ตรงนี้ด้วย

                        form2.show()

                    End If
                Else

                    MsgBox("Failed Login")                   แล้วก็นี่ (ทั้ง 3 ที่ ตรงไหนคือ เวลาไม่กรอกไรแล้วกด button แล้วจะแสดงว่า โปรกรอกข้อมูลไรประมานแล้ว ///////  แล้วก็   กรอก ยูส+พาสผิด   ไรประมานนี่อ่ะครับ บอกที เพราะลองแล้ว มันไม่แสดงออกมาครับ)
 
                End If

            End While
        Catch ex As Exception

        End Try
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class