Access - AYUDA.......

HOLA QUE TAL???

ESTOY TRATANDO DE CONTAR EL NUMERO DE REGISTROS DE UNA TABLA EN ACCES,
PERO LAMENTABLEMENTE ME APARECE UN ERROR; ESTE ES EL CODIGO

Private Sub Comando8_Click()
Dim BDD As Database 'Objeto para manejar la base de datos

Dim TBL As Recordset 'Objeto para manejar la Tabla

Set BDD = OpenDatabase("c:\Documents and Settings\Administrador\escritorio\base1.mdb") 'Abre la base de datos
Dim SQL As String
SQL = " & 'SELECT COUNT(*) FROM tabla1 where nombre' & '=' & Texto1.Text & "
Set TBL = BDD.OpenRecordset(SQL)

If TBL("expr1000") = 1 Then MsgBox ("BUENA")
End If

ACA CIERRO LAS BASES DE DATOS.. ETC..

End Sub

FUNCIONA SUPER BIEN EXCEPTO CUANDO TRATO DE CONTAR EL NUMERO DE REGISTROS, QUE TIENEN UN NOMBRE ESECIFICO.. POR EJEMPLO RAUL..

PERO CUANDO INTENTO CONTAR LOS REGISTROS USANDO TEXTO1 EN DONDE ALMACENO EL NOMBRE APARECE EL ERROR..

Proba asi:

SQL = "Select Count (*) From Tabla1 Where Nombre = '" & Text1 & "'"

Espero esto te sirva