Execl_VBA操作Access数据库。查询，更新，删除

Question

一、主要界面如下：

1、查询:点击后，先 弹出inputbox 输入 班级 再 查询 出对应班级信息，并从B2开始对应显示。（班级编码为:四位年份+两们序号，如201403）

2、保存：可以是单元格内容改变后，直接就保存到数据库，但最好是只当点保存的时候才进行保存到数据库的操作

3、删除：点后 输入学号 提示确定 就删除，（学号是唯一的）
二、也许极小几率可能用到增加按钮，也请做上一个。增加方式随意，备注如何使用就好。
三、如果可以的话，请在代码里加写注释，方便我以后功能上 的修改，谢谢
四、请把文件用附件也上传，没有上传权限的，可以私信我联系方式。
由于数据库里含不可外传信息，就不提供下载了。你们自己随便编几个就好。

Answer 1

'// 创建ADO记录集对象
   Set adoRt = CreateObject("ADODB.RecordSet")
  
   '// 设置SQL 语句

   strSQL = "SELECT * FROM TMB WHERE False"
  
   With adoRt
      '// 设置需要连接数据库
      .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TM.mdb"
      .CursorLocation = 3
      .CursorType = 1
      .LockType = 3
     
      '// 设置SQL语句
      .Source = strSQL
      '// 准备打开记录集
      .Open
        
    '删除TMB表中的所有记录
     if adort.recordcount<>0 then
        adort.movefirst
        do while not adort.eof
            adort.delete
            adort.movenext
        loop
    endif

      '// 新增记录
      .AddNew
      '// 赋值
      .Fields("TMZF").Value = Range("识别号")
      '// 更新
      .Update
     
      '// 判断并关闭记录
      If .State = 1 Then
         .Close
      End If
   End With
  
   '// 从内存中释放
   Set adoRt = Nothing

追问

送你四个字：答非所问

Answer 2

由于不提供下载信息，就不回答了追问

你随便加几个字段，填几个内容就好了，
关键是代码
哥～～ 求代码啊？？？？几个字段就难倒你了？