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