dbQuery = New ADODB.Recordset
        dbQuery = dbconnect.Execute("SELECT DISTINCT NOME FROM V_EDIFICIO WHERE EDIFICIO LIKE '" & vNome & "%'")