VB.NET อยากได้วิธีการตรวจสอบ Username & Password ของ VB2010 แบบ Window App

        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;Database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim intNumRows As Integer
        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND Password = '" & Me.txtPassword.Text & "' "
        objCmd = New SqlCommand(strSQL, objConn)
        intNumRows = objCmd.ExecuteScalar()

        If intNumRows > 0 Then
            Dim frm As New frmMain
            frm._strUser = Me.txtUsername.Text
            frm.LoadInfor()
            frm.Show()

            Me.Hide()
        Else
            MessageBox.Show("Username or Password Incorrect")
        End If

        objConn.Close()
        objConn = Nothing

Dim frm As New frmMain

frm._strUser = Me.txtUsername.Text

frm.LoadInfor()

frm.Show()


Me.Hide()