へなちょこOLのおもちゃ箱

超手抜きざっくりまとめ

    With DoCmd
        .SetWarnings False
        CurrentDb.Execute "DELETE * FROM " & strTblName
        .SetWarnings True
    End With

※Where句を指定しないと、全レコードを削除

    With DoCmd
        .SetWarnings False
        .DeleteObject acTable, T_IMPORT
        .SetWarnings True
    End With

※レコード数が多いと、レコード削除はすんごい時間かかる
　全レコード削除するなら、テーブル削除して作り直しちゃったほうが速い

Public Function RunSQL(Byval strSQL as string)As Object
    Set RunSQL = Currentdb.openrecordset("strSQL", dbopensnapshot)
End Function

※Docmd.RunSQLはアクションクエリしかだめ
　Docmd.RunSQLでSelectするとエラーが出る