สอบถาม :: เกี่ยวกับการการค่าตัวแปรและส่งค่าไปยัง form อื่น ครับ ....

Private Sub bntLOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntLOGIN.Click
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim strConnString, strSQL As String

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

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

        If intNumRows > 0 Then

            Dim frm As New frm_main
            frm_main.lbl_name.Text = txtID.Text

            frm.Show()

            Me.Hide()

        
        Else
            MessageBox.Show(" ? คุณใส่รหัสผ่านผิด กรุณาใส่ใหม่อีกครั้ง :")
        End If

        objConn.Close()
        objConn = Nothing

Private Sub frm_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lbl_name.Text = Frm_Login.txtID.Text
        


    End Sub

Private Sub btn_cancel_select_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel_select.Click

        Frm_Login.txtID.Text = ""
        Dim frm As New Frm_Login
        frm.Show()
        Me.Close()