Access - importar datos access a excel

Saludos, he encontrado la siguiente instruccion y cuando la intento aplicar en un trabajo que estoy realizando me sale error 3061, pocos parametros.se esperaba 1, El error me sale en la ultima linea Set rst = dbs.OpenRecordset(strQLS, dbOpenDynaset, si alguien me puede ayuda. Gracias

Private Sub cmdImportarAccess_Click()

Dim dbs As DAO.Database, _
rst As DAO.Recordset, _
strSQL As String, _
strBaseDatos As String, _
bytColumna As Byte


' abro la base de datos
strBaseDatos = "C:d3.mdb"
Set dbs = OpenDatabase(strBaseDatos)

' abro el recordset
strSQL = "SELECT MATRICULA, FECHA, DIA, LUGAR "
strSQL = strSQL & "FROM Tabla1 "
strSQL = strSQL & "WHERE NombreFunción = 'ChequeoErrores'"
'strSQL = strSQL & "ORDER BY "

Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)
.
.
.

MI ESTIMADO, ES MEJOR SI CREAS UNA MACRO Y ESA LA MANDAS A LLAMAR DESDE UN EVENTO O QUIZAS ES Q SI LO SABES HACER POR MACRO Y QUIERES HACERLO EN CODIGO... SALUDOS.

JL.

Quiero hacerlo por codigo. Saludos