[2008] - LIKE Query

[The Little Guy]

How would you do a like query? This is currently what I have, but it doesn't work, I get an error.

Error Message:
Public member 'Read' on type 'Integer' not found.

Dim connection As New OleDbConnection(dbQueryString)
Dim command As New OleDbCommand("select * from info where `@sType` like @search order by `Title`", connection)
 
command.Parameters.AddWithValue("@sType", searchFilter.Text)
command.Parameters.AddWithValue("@search", searchBox.Text & "%")
connection.Open()
Dim dr = command.ExecuteNonQuery()
While dr.Read()
       ' Some code
End While