Visual Basic - ACCESS CON CONSULTAS SQL

Hola a todos , mi pregunta es la siguiente , Hago la siguiente consulta SQL

Set tabla = basedato.openrecordset("Select * from Bus where cod_bus = text1.text",dbopentable)

Primera pregunta , La sintaxis esta bien.?
Segunda Pregunta , Al Ejecutar el programa me arroja el error que no encuentra el objeto "Select * from ......" y que debo asegurarme que el objeto exista , si el objeto no existe , cual es para cargarlo.

De antemano gracias
Fabian

Hay un pequeño error:
En primer lugar deberias separar la instruccion así:

dim strsql as string
' ' *** suponiendo que el valor es numérico *************
strsql = " Select * from bus where cod_bus = " & text1.text
'*** si fuera un valor de texto (string ) **************
strsql = " Select * from bus where cod_bus = ' " & text1.text & " ' "
y luego
Set tabla = basedato.openrecordset ( strsql, dbopentable )