อยากดัก Error ของการ ค้นหารหัสอ่ะครับ อ่านด้านในทีครับ

    
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
    Dim s As String
    Dim dr As OleDbDataReader
    Dim code As String
     
          code = txtCode.Text.Trim
          s = "select * from student where code='" & code & "'"
            dr = ExecuteReader(s)
            dr.Read()
            txtCode.Text = dr.Item("code").ToString
                txtFname.Text = dr.Item("Fname").ToString
                txtLname.Text = dr.Item("Lname").ToString
            End Sub