DAO

Private Sub コマンド1_Click()
    Dim strSql As String

    strSql = ""
    strSql = strSql & vbCrLf & "DELETE "
    strSql = strSql & vbCrLf & "FROM "
    strSql = strSql & vbCrLf & "    テーブル1 "
    strSql = strSql & vbCrLf & "; "


    Dim objDatabase As DAO.Database

    Set objDatabase = CurrentDb

    objDatabase.Execute strSql

    objDatabase.Close

End Sub