Visual Basic - ESTO ME DA UN ERROR 13

ESTOY TRATANDO DE HACER UNA CONSULTA SQL Y ME DA UN ERROR 13 PERO SOLO EN ALGUNOS FORMULARIO, EN OTROS FUNCIONA PERFECTAMENTE.
FAVOR AYUDARME

Dim mibase As Database
Dim miregistro As Recordset
Dim sql As String
Set mibase = OpenDatabase("c:\banco de prueba\EJEMPLO.MDB")
Set miregistro = mibase.OpenRecordset("TBFACTURA")
sql = "select descripcion,precio from tbfactura"
Data1.RecordSource = sql
Data1.Refresh

Dale un alias al nombre de la tabla, Deberia quedar así.

SELECT tbf.descripcion, tbf.precio
FROM tbfactura as tbf
WHERE tbf.descripcion not (null) and tbf.precio not (null)