Visual Basic - error 3001 en tiempo de ejecucion

amigos tengo un problema al correr el programa me sale un error 3001 en tiempo de ejecucion y me marca como error en esta consulta.

' Abre el Recordset con la consulta Sql
Recordset.Open "Select [unidadl]," & _
"[fechal]," & _
"[nombrel] " & _
"From crusadas Order By unidadl Asc", cnn, adOpenDynamic, adLockOptimistic

Dado que el foro siguiente a este es el Vb ADO, este debe ser el DAO.
en Vb DAO lo que escribes no tiene sentido (Error 3001).
Creo que sería así:

Abrir la base de datos Bdd
dim Mireg as Recordset
Mireg=Bdd.Openrecordset("Select unidadl,fechal,nombrel from crusadas order by unidadl asc")