ปัญจุกจิกที่ไม่จุกจิกครับ มันไม่แยกตัวเล็กตัวใหญ่ให้ครับ ตอน Login ครับ ช่วยดูทีครับ

 sql = "Select * From Table_Member where UserName='" & TextId.Text.Trim & "'" ' ถ้ารหัสใน ช้อง Textid ตรงกับ  Table_Member ให้ทำต่อ
        cmd = New SqlCommand(sql, objconn) ' การสืบค้นข้อมูลโดยนำ sql, objconn มาประมวลผล
        dr = cmd.ExecuteReader
        If dr.HasRows Then
            dr.Read()
            sql = "Select * From Table_Member where Password='" & TextPass.Text.Trim & "'"
            cmd = New SqlCommand(sql, objconn)
            dr.Close()
            dr = cmd.ExecuteReader
            If dr.HasRows Then
                dr.Read()
                MsgBox("ได้เแล้ว")
                Me.Hide()
                frmMain.ShowDialog()
            Else
                MsgBox("Password ไม่ถูกต้อง")
            End If
            dr.Close()
        Else
            MsgBox("UserName ไม่ถูกต้องกรุณาลองใหม่อีกครั้ง")
            dr.Close()
        End If