新手用vb，帮我看看代码，总错误提示 过程声明与同名事件或过程的描述不匹配，谢谢！！

Question

新手用vb，帮我看看代码，总错误提示 过程声明与同名事件或过程的描述不匹配，但是我就是找不到有同名的，也不怎样修改才正确，谢谢多谢指导！！代码如下：Private Sub add_user_Click(Index As Integer)
    Label1.Visible = True
    Label2.Visible = True
    Label3.Visible = False
    Text1.Visible = True
    Text2.Visible = True
    Command1.Visible = True
    Command2.Visible = True
End SubPrivate Sub Command1_Click()
    If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox "用户名和密码均不能够为空！"
        Text1.SetFocus
        Exit Sub
    End If
    
    Dim strsql As String
    Dim Conn As ADODB.Connection
    Dim strAccess As String
   
    strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\tiaomadata.mdb;User Id=admin;Password=;"
    Set Conn = New Connection
    Conn.Open strAccess
    strsql = "insert into [user](name,pwd)values(" & sqls(Text1.Text) & sqlstr(Text2.Text) & ")"
    Conn.Execute strsql
    Conn.Close
' Dim rs As ADODB.Recordset
' Set rs = New ADODB.Recordset
' rs.Open "select top 1 * from [user]", Conn, adOpenDynamic, adLockOptimistic
' rs.AddNew
' rs(1) = Text1.Text
' rs(2) = Text2.Text
' rs.UpdateBatch
' rs.Close
    
MsgBox "保存成功!"
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
End SubPrivate Sub Command2_Click()
    Label1.Visible = False
    Label2.Visible = False
    Label3.Visible = True
    Text1.Visible = False
    Text2.Visible = False
    Command1.Visible = False
    Command2.Visible = False
End SubPrivate Sub exitsys_Click()
    Unload Me
    End
End SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  
  Adodc1.Caption = "记录总数：" & CStr(Adodc1.Recordset.RecordCount) & Space(20) & "当前记录号：" & CStr(Adodc1.Recordset.AbsolutePosition)
End SubPrivate Sub Form_Load()
    Dim strAccess As String
       strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\tiaomadata.mdb;User Id=admin;Password=;"
       Adodc1.ConnectionString = strAccess        ' 设置连接字符串
       Adodc1.CommandType = adCmdTable
       Adodc1.RecordSource = "tm"         ' 设置所要访问的数据表
 '      Set DataGrid1.DataSource = Adodc1
End Sub

Answer 1

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  
  Adodc1.Caption = "记录总数：" & CStr(Adodc1.Recordset.RecordCount) & Space(20) & "当前记录号：" & CStr(Adodc1.Recordset.AbsolutePosition)End Sub这个过程如果没有 Adodc1.Caption = "记录总数：" & CStr(Adodc1.Recordset.RecordCount) & Space(20) & "当前记录号：" & CStr(Adodc1.Recordset.AbsolutePosition)就能够正常执行，不知道是什么原因，请高手指点，谢谢！！

Answer 2

把  Adodc1.Caption =...注释掉，而不是删除掉，是不是也提示同样的错误？

Answer 3

to faysky2() :
注释掉，也提示同样的错误？这个是什么问题啊多谢解答

Answer 4

估计是引用ADO引起的冲突，一般添加Adodc控件，VB会自动引用ado2.0你把 工程/引用/Microsoft ActiveX Data Object 2.X Library
这个2.X 改为其他版本，再试试