Visual Basic - Intrucción SQL

Tengo un problema con esta instrucción
total = "select count(*) from maestro_pres where Detalle_pres.referencia='" & Text1.Text & "'"

ya que en vez de asignarle a total el numero de registros que me cumplan la condición, me coloca la instrucción como si fuera un texto, es decir, select count(*) from maestro_pres where Detalle_pres.referencia='2'

Mira jesus lo que tenes que hacer es mas o menos esto para que podas contar los registros, bueno aunque esto puede variar dependiendo del metodo de acceso utilizado en esto caso yo utilizo el DAO pero independientemente asi funciona el SQL, ojala que te sirva, suerte.

Dim gdatos As Recordset
Dim dataactivos As Database

Set dataactivos = OpenDatabase("Rutadisco\nombrebasededatos")
Set gdatos = dataactivos.OpenRecordset(""select count(*) from maestro_pres where Detalle_pres.referencia='" & Text1.Text & "'"
"'")
total = gdatos.recordcount
gdatos.Close