strSQL = "SELECT * FROM Export"
Set Exprt = New ADODB.Recordset
Set cnn = CurrentProject.Connection
Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandText = strSQL
cmd.CommandType = adCmdText
Exprt.Open cmd, , adOpenDynamic, adLockOptimistic
If Not (Exprt.EOF And Exprt.BOF) Then
  Path = Trim(Exprt!name)
  Exprt.MoveNext
  Do Until Exprt.EOF
    DoCmd.OutputTo Exprt!Type, Trim(Exprt!name), acFormatXLS, Path & Trim(Exprt!name) & ".xls"
'    DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\BarBOSS\BarXP\Export\Test.mdb", acTable, Trim(Exprt!name), Trim(Exprt!name)
    Exprt.MoveNext
  Loop
End If