login ผมมัน error อ่าคับ...ควรจะทำยังไงดี หรอคับ ถ้าเช็คแร้วถูกมันก้ ต่อไปได้ แต่ถ้า ผิดมันก้ error เรยคร๊าาาฟ ช่วยผมดีคับ

Dim SqlSelect As String
        Dim conStr As String

        conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Search KTB\Search BI\Search BI\BI_Report.accdb;"
        Dim conn As New OleDbConnection(conStr)
        conn.Open()

        SqlSelect = "select * from Check_User Where UserID = '" & txtUser.Text & "' and Password = '" & txtPassword.Text & "'"
        Dim olecommand As New OleDbCommand(SqlSelect, conn)

        Dim reader As OleDbDataReader = olecommand.ExecuteReader

        reader.Read()

        If txtUser.Text = "" Or txtPassword.Text = "" Then

            MessageBox.Show("ท่านยังไม่ได้กรอง UserID & Password น่ะคับ")

        Else
            Dim user As String
            Dim pass As String

            user = reader.Item("UserID")       '<<<< มัน error ตรงนี้อ่ะคับ ว่า No data exists for the row/column.
            pass = reader.Item("Password")



            If txtUser.Text = user And txtPassword.Text = pass Then

                MsgBox("ยินดีต้อนรับคุณ " & user & " เข้าสู่ระบบครับ")

           
                BIcontrol.Show()

                Dim a As String
                a = "Name User = "
                BIcontrol.lblShowUser.Text = a + txtUser.Text           'เพื่อ show ใน from ว่าใครเป็นคนเข้าใช้ programs
                BIcontrol.lblUserName.Text = txtUser.Text               'เพื่อ add ฐานข้อมูล

                Me.Close()
                conn.Close()

            Else
                MsgBox("UserID & Password ควรตรวจตัวอักษรพิมพ์เล็กพิมพ์ใหญ่ให้ดี") 'ตอนแรกอยากให้มันเช็คว่าถ้าไม่ไม่มีข้อมูลให้ปิดหน้านี้อ่ะ คับ แต่มันกลับไป เช็คพิมพ์เล็ก พิมพ์ใหญ่ซะงั้น 
                txtUser.Text = ""
                txtPassword.Text = ""
            End If

        End If