problema con comando

tengo un problema... quiero pasar un string a un comando de busqueda... o
sea lo q tenga adentro la

propiedad text de mi control textbox quiero q funciones como criterio de una
busqueda

yo lo q hice fue crearle como parametro esta bien???

pero no me funciona...

o sea si yo le pongo un nombre manualmente funciona el comando anda...
pero si intento usar ese parametro q cree

no anda

pliss agradeceria mucho su ayuda



Dim conexion As New OleDb.OleDbConnection(dbgenerac.ConnectionString)

conexion.Open()

Dim bus As String = busq.Text

Dim a As String = "SELECT * FROM clientes WHERE Contacto LIKE '%Busqe%'"

Dim comando As New OleDb.OleDbCommand(a, conexion)

Dim Busqe As New OleDb.OleDbParameter("Busqe", OleDb.OleDbType.Char)

Busqe.Value = bus

comando.Parameters.Add(Busqe)

Dim dr As OleDb.OleDbDataReader = comando.ExecuteReader()

Do While dr.Read()

MsgBox(dr.Item("Contacto"))

Loop

conexion.Close()