1.修改难度名称
  AppInfo.rst.Open("select 难度名称 from 难度表 where 难度号 = " & diffNum & "", _
  AppInfo.Conn, ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockBatchOptimistic, 

  ADODB.CommandTypeEnum.adCmdText)
     If AppInfo.rst.RecordCount > 0 Then
          AppInfo.rst.MoveFirst()
           With AppInfo.rst
                        .Fields("难度名称").Value = diffName
                        .Update()
             End With
      MsgBox("难度名称已修改。", MsgBoxStyle.Information, "成功27")
      AppInfo.rst.Close()
2.添加难度名称
  AppInfo.rst.Open("select 难度名称 from 难度表 ", _
  AppInfo.Conn, ADODB.CursorTypeEnum.adOpenStatic,   

ADODB.LockTypeEnum.adLockBatchOptimistic,  ADODB.CommandTypeEnum.adCmdText)
                With AppInfo.rst
                    .AddNew()
                    .Fields("难度名称").Value = diffName
                    .Update()
                End With
                MsgBox("难度名称已添加。", MsgBoxStyle.Information, "成功35")
                AppInfo.rst.Close()
3.删除难度名称
  AppInfo.rst.Open("select 难度名称 from 难度表 ", _
  AppInfo.Conn, ADODB.CursorTypeEnum.adOpenStatic,   

ADODB.LockTypeEnum.adLockBatchOptimistic,  ADODB.CommandTypeEnum.adCmdText)
                With AppInfo.rst
                     .delete()
                End With
                MsgBox("难度名称已添加。", MsgBoxStyle.Information, "成功35")
                AppInfo.rst.Close()

向各位高手请教，我用Visual Studio 搞VB课程设计，在对Access中的“难度表”实施上面三种操作时，程序每次提示操作成功，但数据库中的信息根本没变，有哪位高手知道其中的缘由？或许有更好的方法，麻烦指点迷津？ 非常感谢！！！