急。。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
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
报这个错:
compile Error
sub or function not defined
和我引用这个库函数有关系吗？
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......
