ช่วยด้วยค่ะ ต้องการดึงข้อมูลจาก Access มาแสดงใน Textbox โดยค้นหาจากรหัส แต่เกิดปัญหา error ค่ะ

 Private Sub bttSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttSearch.Click
        If txtStdID.Text = "" Then
            MessageBox.Show("กรุณาป้อนข้อมูลนักศึกษาที่ต้องการค้นหา", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Dim s As String = ""
            s = "SELECT * FROM StdProfile WHERE StdID = ' " & txtStdID.Text & " ' "
            Dim dr As OleDbDataReader
            Dim LoadCommand As New OleDbCommand()
            dr = LoadCommand.ExecuteReader(s)
            dr.Read()

            txtStdID.Text = dr.Item("StdID").ToString()
            txtStdName.Text = dr.Item("StdName").ToString()
            txtStdLastName.Text = dr.Item("StdLastName").ToString()
            txtStdTel.Text = dr.Item("StdTel").ToString()
            txtFactGender.Text = dr.Item("FactGender").ToString()
            txtFactBlood.Text = dr.Item("FactBlood").ToString()
            txtFactEFather.Text = dr.Item("FactEFather").ToString()
            txtFactEMother.Text = dr.Item("FactEMother").ToString()
            txtFactSFather.Text = dr.Item("FactSFather").ToString()
            txtFactSMother.Text = dr.Item("FactSMother").ToString()
            txtFactGSchool.Text = dr.Item("FactGSchool").ToString()
            txtFactProvince.Text = dr.Item("FactProvince").ToString()
            txtFactOGpa.Text = dr.Item("FactorGpa").ToString()
            txtFactSShips.Text = dr.Item("FactSShips").ToString()
            txtFactGStudy.Text = dr.Item("FactGStudy").ToString()
            txtFactYSpect.Text = dr.Item("FactYSpect").ToString()
            txtFactGpa1.Text = dr.Item("FactGpa1").ToString()
            txtFactGpa2.Text = dr.Item("FactGpa2").ToString()
            txtFactGpaSummer.Text = dr.Item("FactGpaSummer").ToString()
            txtFactGpax1.Text = dr.Item("FactGpax1").ToString()
            txtFactGpax2.Text = dr.Item("FactGpax2").ToString()
            txtFactGpaxSummer.Text = dr.Item("FactGpaxSummer").ToString()
            dr.Close()
        End If
    End Sub