No puedo usar parametros con LIKE en sentencia SELECT

[Juanza]

Amigo prueba este codigo que hice, te realiza busquedas en un datagrid de acuerdo a la tecla que vas presionando, ahi uso la clausula like

Private Sub txtbusqueda_KeyPress(KeyAscii As Integer)
asnu = KeyAscii
Select Case asnu
Case 8
cara = ""
busqueda = Trim(busqueda & cara)
busqueda = Left(busqueda, Len(busqueda) - 1)
Case 13
cmdcaptura_Click
Case Else
cara = Chr(KeyAscii)
busqueda = Trim(busqueda & cara)
End Select
cmd.CommandText = "select cod_alu,nom_total,edad,dire_alu from alumnos where nom_total like '" & busqueda & "%'" & "order by nom_total"
Set rs = cmd.Execute
rs.Close
rs.CursorType = adOpenKeyset
rs.Open
Set dgalumnos.DataSource = rs
txtregistros.Text = rs.RecordCount
End Sub