Доброго времени суток
Пишу процедурку разделения таблицы

Public Sub SC2(tblname)
Dim tbls()
Dim it As Integer
Dim k As String
Dim dc As Long
Dim j As Long

dc = DCount("*", "Таблица")
it = dc \ 50000
ReDim tbls(0 To it)
   For j = 1 To it
   CurrentDb.Execute "CREATE TABLE [Таблица(" & j & ")] ([cod] INT, [ob] VARCHAR, [ind] FLOAT)"
   CurrentDb.Execute "INSERT INTO [Таблица(" & j & ")] SELECT TOP 50000 * FROM Таблица"
   CurrentDb.Execute "DELETE FROM (SELECT TOP 50000 * FROM Таблица)"
   Next j
   
   If DCount("*", "Таблица") > 0 Then
   k = CStr(it + 1)
   DoCmd.Rename "Таблица(k)", acTable, "Таблица"
   End If
   MsgBox "Парам-парам-ПАМ!"
End Sub

Хочу, чтобы после завершения цикла исходная таблица переименовалась в Имя(колличество итераций + 1), если в ней остаются записи. Возможно ли это сделать командой .Rename (или только создать-вставить-удалить запросами)? Если да, то как прописать переменную k в команде?

http://www.sql.ru/forum/1266531/vba-access-strokovaya-peremennaya-v-rename