Se usi ADO allora inserisci il % al posto dell'asterisco

mioRecord.Source="SELECT * FROM miaTabella WHERE mioCampo LIKE '" & mioValore & "%'"