Cita:
Iniciado por pilar_tellez 
pucha mala noticia, no me funciono, el colocar esa linea de codigo, al ejecutar el programa me aparece el mismo error, y cuando depuro, en esa linea de codigo me dice "SE REQUIERE UN OBJETO"
Data1.DatabaseName = App.path & "\quimica.mdb" , en esa linea de codigo me lee la base de datos....
....
Primero tienes que abrir una conexión a la base de datos.
Prueba así:
Código:
Dim db As Database
Set db = OpenDatabase(App.Path & "\quimica.mdb")
sql = "SELECT empresa.razon_social, comuna.nom_comuna" + _
"FROM tipo INNER JOIN (comuna INNER JOIN empresa ON comuna.id_comuna = empresa.id_comuna) ON tipo.id_tipo = empresa.id_tipo;"
With Data1
.DatabaseName = db.Name
.RecordSource = sql
.Refresh
End With
Supongo que la consulta te funciona ¿no?
