รบกวนด้วยครับ ช่วย แปล โค๊ตนี่หน่อยครับ อยากจะใช้ หลายๆ โค็ตครับ

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        sql = "Select * From Table_Member"
        cmd = New SqlCommand(sql, objconn)
        adp = New SqlDataAdapter(cmd)
        dataset = New DataSet
        adp.Fill(dataset, "Table_Member")
        For i = 0 To dataset.Tables("Table_Member").Rows.Count - 1
            If TextId.Text = dataset.Tables("Table_Member").Rows(i)("UserName") Then
                If TextPass.Text = dataset.Tables("Table_Member").Rows(i)("Password") Then
                    MessageBox.Show("ผ่านครับ")
                    Me.Hide()
                    frmMain.ShowDialog()
                ElseIf TextPass.Text <> dataset.Tables("Table_Member").Rows(i)("Password") Then
                    MessageBox.Show("ไม่สามารถเข้าสู่ระบบได้", "ระบบขายสินค้า Stock", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
                End If
            End If
        Next

    End Sub

    If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
            sql = "Select * From Table_Member WHERE UserName = '" & TextId.Text & "'"
            cmd = New SqlCommand(sql, objconn)
            cmd.CommandTimeout = 1
            cmd.CommandType = CommandType.Text
            adp = New SqlDataAdapter(cmd)
            Dim reader As SqlDataReader = cmd.ExecuteReader()
            If reader.HasRows = 1 Then
                MessageBox.Show("Invalid User", "Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
                TextId.Focus()
            End If
        End If