SQLで 全項目を追加したい

ACCESS97を使用しています。
SQLを使用して、データの全件削除、全件追加を実施したいのです。
追加元(テーブルA)の項目と、追加先(テーブルB)の項目は同じです。
削除の方は下記の内容で上手くいきましたが
追加は実施できませんでした。
追加の時、*アスタリスクを使用する方法などないのでしょうか？

Private Sub コマンド0_Click()
Dim SQLstr As String
Dim DB As Database
Dim RS As Recordset

Set DB = CurrentDb()
SQLstr = "DELETE FROM テーブルB"
DB.Execute SQLstr
Set DB = Nothing

SQLstr = ""
SQLstr = "INSERT INTO テーブルB(*) VALUE (テーブルA*)"
Set DB = CurrentDb()
DB.Execute SQLstr
Set DB = Nothing

End Sub

No.1 ベストアンサー 回答者： ryuu001 回答日時： 2002/12/18 22:09

INSERT INTO テーブルB SELECT テーブルA.* FROM テーブルA;

ではどうですか？