[Resolvido]Exportar consulta com formato .accdb

Bom dia amigos, montei um pequeno sistema e gostaria de saber se tem algum código VBA que me permita exportar uma consulta com o formato de saída .accdb

Tenho o seguinte código, mas esse só exporta em formato Excel.

Código:

 Dim strNmArquivo As String
  strNmArquivo = CurrentProject.Path & "\nomearquivo" & ".xlsx"
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "nomearquivo", strNmArquivo, True

Podem me ajudar? Desde já agradeço!

Teste por favor;

Código:

Public Function CriarNovaBD()
'By JPaulo @ maximoaccess
   Dim ws As Workspace
   Dim db As Database
   Dim strCaminhoBD As String
   Set ws = DBEngine.Workspaces(0)

   'caminho e nome para o novo banco
   strCaminhoBD = "c:\NovaBD.accdb"

   'se o banco existir, deleta-o
   If Dir(strCaminhoBD) <> "" Then Kill strCaminhoBD

   'cria um novo
   Set db = ws.CreateDatabase(strCaminhoBD, dbLangGeneral)

   'exporta a sua consulta
   DoCmd.TransferDatabase acExport, "Microsoft Access", strCaminhoBD, acQuery, "SuaConsulta", "SuaConsulta", False

   db.Close
   Set db = Nothing
End Function

Boa tarde meste, agradeço pela ajuda.

O código me gerou o seguinte erro: Erro em tempo de execução inválido '3001': Argumento Inválido.

Corrigido acima, teste de novo.

Muito obrigado pela a ajuda mestre!

Obrigado pelo retorno o fórum agradece.