o Certo seria desta forma
lendo o código abaixo ficaria assim
Procurando em todos os campos da tabela mtfr_cons onde as 04 primeiras letras do lanc sejam igual a do campo fantasia
Data1.RecordSource = "Select * From mtfr_Cons WHERE fantasia='" _
& left(lanc,4) & "'"
seria isto que você está procurando.