Удаление таблицы в акссесовской бд через vbs

Формулировка задачи:

Делаю так
[url=http://]
Dim DB
Dim tb
Set DB = OpenDatabase("c:\web.mdb", False)
For Each tb In DB.TableDefs
If tb.NAME = "punkty" Then
DB.TableDefs.Delete "punkty"
Exit For
End If
Next tb
''а тут я импортирую
DoCmd.TransferDatabase acImport, "dBase IV", "p:\pay\", acTable, "punkty.dbf", "punkty111"
DB.Close
[/url]
Ругается на next tb.

Решение задачи: «Удаление таблицы в акссесовской бд через vbs»

textual
                            Листинг программы 
                        

                            <font color="blue">For</font> i=<font color="darkblue"><b>1</b></font> <font color="blue">to</font> <font color="darkblue"><b>10</b></font>
    ...
<font color="blue">next</font>
                        