Elton,
Uma solução seria você importar a biblioteca
Imports System.Data.Linq.SqlClient
E então realizar a consulta da seguinte maneira
Dim _criterio As String = IIf(Criteiro = "", "%", "%" & Criterio & "%")
Dim _Consulta = From i In Imovel _
Where SqlMethods.Like(i.Endereco, _criterio) _
Select i.Endereco, i.Numero, i.Codigo
Espero ter ajudado.
Abraços