VB.Net MySQL ลอคอินและตรวจข้อมูลระดับสมาชิกใน MySql แล้วเรียก form ของแต่ละระดับ

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim dtAdapter As New MySqlDataAdapter

        Dim ds As New DataSet
        Dim dt As DataTable

        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;User Id=root; Password=pockyz; Database=test; Pooling=false"
        strSQL = "SELECT * FROM members WHERE Username = '" & Me.txt_user.Text & "' AND Password = '" & MD5(Me.txt_pass.Text) & "' "

        objConn.ConnectionString = strConnString
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd

        dtAdapter.Fill(ds)
        dt = ds.Tables(0)

        If dt.Rows.Count > 0 Then
            mainstandard.Show()
            Me.Hide()
        Else
        MsgBox("Username or Password Incorrect")

        End If

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

    End Sub