SQL - Ayuda con instruccion sql

Alguien me puede ayudar con esta consulta, en Access me anda joya, me voy a VB y no anda ni pa tras.

"SELECT NAME As Tabla From MSysObjects Where ((Left([Name],1) <> "~") AND (Left([Name],4) <> "MSys") AND ([Type] In (1, 4, 6))) Order By Name"

Gracias, saludos

Fijate y prueba con lo siguietne:

SELECT NAME AS Tabla
FROM MSysObjects
WHERE ((LEFT(Name, 1) <> '~') AND (LEFT(Name, 4) <> 'MSys') AND
(Type IN (1, 4, 6)))
ORDER BY Name

No todo es copiar y ejecutar. El problema esta en los corchetes y comillas dobles, ya que en SQL las cadenas de texto se suelen poner entre comillas simples.

Ten en cuenta que para poder ejecutar esta consulta debes tener permisos de lectura sobre la tabla MSysObjects.

Un saludo.