Private Sub Command1_Click()                      '增加记录过程

'先在textbox里输入数据，再点增加纪录按钮

If MsgBox("确实要增加吗?", vbYesNo) = vbYes Then  '确认是否增加记录
   If Text1 = "" Then                             '判断序号不能为空
      MsgBox "序号不能为空!请重新输入."           '显示对话框
      Text1.SetFocus                              '使text1获得焦点
      Exit Sub                                    '退出,重新输入数据
   Else
    '判断序号是否已经存在

    Adodc2.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\新建文件夹 (2)\登记\样品.mdbersist Security Info=False"  '数据库密码是1234
    Adodc2.RecordSource = "select * from 表1 where 图号='" & Text1.Text & "'"          '表1 为数据库里的一个表,按实际更改"
    Adodc2.Refresh '刷新数据
   
    If Adodc2.Recordset.RecordCount > "" Then
          MsgBox "图号 """ & Text1 & """ 已经存在!请重新输入."
          Text1.SetFocus                          '使text1获得焦点
          Set DataGrid1.DataSource = Adodc1
          Exit Sub                                '退出,重新输入数据
    End If
   End If

'增加记录
   Adodc1.Recordset.AddNew                      '在数据库里插入一条空记录
   Adodc1.Recordset.Fields("图号") = Text1
   '赋值
   Adodc1.Recordset.Fields("物料名称") = Text2
   
   Adodc1.Recordset.Fields("送样单位") = Text3 '因为年龄字段为数值类型,用val函数转换数据,否则有可能会出错
   
   Adodc1.Recordset.Fields("接收人") = Text4
   
   Adodc1.Recordset.Fields("适用型号") = Text5
   
   Adodc1.Recordset.Fields("版本") = Text6
   
   Adodc1.Recordset.Fields("模具提供") = Text7
   
   Adodc1.Recordset.Fields("送样次数") = Text8
   
   Adodc1.Recordset.Fields("模号") = Text9
   
   Adodc1.Recordset.Fields("数量") = Val(Text10)
   
   Adodc1.Recordset.Fields("原材料") = Text11
   
   
  Adodc1.Recordset.Fields("送样人") = Text12

    Adodc1.Recordset.Fields("备注") = Text13

   Adodc1.Recordset.Update                      '保存记录
   
End If

End Sub
为什么增加数据的时候,系统提示"对象'Refresh'的方法'IAdodc'失败