i have problem in opening datareader

See more:

VB

Hello All,
I'm writing a program about leitnerbox. In my program I want to search words in my table in data base. I have a text box and my codes are in text_changed event. Here is my code amd then the error.

Private Sub TextBoxX3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX3.TextChanged
       Dim objcmd As SqlCommand
       Dim sql As String
       If CheckBoxX2.Checked = True Then
           sql = "select * from leitnertable where word like '%" & TextBoxX3.Text & "%'"
       End If
       If CheckBoxX1.Checked = True Then
           sql = "select * from leitnertable where firstmeaning or secondmeaning like '%" & TextBoxX3.Text & "%'"
       End If
       objcmd = New SqlCommand(sql, con)
       If objcmd.Connection.State = ConnectionState.Closed Then objcmd.Connection.Open()
       Dim dr As SqlDataReader
       dr = objcmd.ExecuteReader
       While dr.Read
           Dim dt As New DataTable
           dt.Load(dr)
           DataGridView2.DataSource = dt
       End While
   End Sub

Check box1 is searching in meaninngs and check box2 is searching in words.
When I debug the program yhe error is:



I don't know what to do.

Please help me.

Thanks in Advance.