急。。VB编译时出错！！

 
有请各位高手帮我看看。为什么…在添加新的信息按“保存”按钮时出现“from子语句错误”和“实时错误-2147217900（800400e14）对象Refresh的方法IAdodc失败”和上面提示 ，并且序号一列无法生成连贯序号红圈处，为什么。。。。  毫无头绪，望前辈们不啬赐教说说原因。。先谢谢啦！！！！！
部分代码如下：
Private Sub cmdAdd_Click()
  isAdd = True
  SaveCancelEnabled
  AdodcReaderType.Recordset.AddNew
  TextEnabledTrue
  txtReaderTypeNo(0).SetFocus
End Sub

Private Sub cmdCancel_Click()
  If AdodcReaderType.Recordset.RecordCount > 0 Then
      AdodcReaderType.Recordset.CancelUpdata
  End If
  initialCmd
  TextEnabledFalse
  DataGridReaderType.Refresh
  AdodcReaderType.Refresh
End Sub

Private Sub cmdClose_Click()
  End
  Unload Me
End Sub

Private Sub cmdDelete_Click()
  If MsgBox("真的要删除类别名称为：【" & Trim(txtReaderTypeName.Text) & "】的类别吗？ ", vbYesNo, "提示信息") = vbYes Then
    AdodcReaderType.Recordset.Delete
    AdodcReaderType.Recordset.MoveNext
    If AdodcReaderType.Recordset.EOF Then
        AdodcReaderType.Recordset.MovePrevious
        If AdodcR