Private Sub Command1_Click()
  If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text Or Text6.Text Then
        MsgBox "请将数据填写完整！", 64, "提示"
        Exit Sub
    End If
    Call (conn)
    Dim A As String
    Dim b As New ADODB.Recordset
    A = "select * from试剂库 where 试剂名称='" & Text1.Text & "'"
    b.Open A, conn, adOpenKeyset, adLockPessimistic
    If b.EOF = False Then
        MsgBox "材料名称已存在，请重新输入", 48, "提示"
        conn.Close
       Set conn = Nothing
        Exit Sub
    End If
    If b.EOF = True Then
        With b
            .AddNew
            .Fields("试剂名称") = Text1.Text
            .Fields("规格") = Text2.Text
            .Fields("采购人") = Text3.Text
            .Fields("生产日期") = Text4.Text
             Fields("有效日期") = Text5.Text
             Fields("数量") = Text6.Text
            .Update
        End With
    End If
    MsgBox "添加成功!", 64, "提示"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Adodc1.Refresh
    试剂库.Refresh
    DataGrid1.Refresh
    conn.Close
    Set conn = Nothing

运行提示 call 这行代码错误

你要先建立一个数据库链接，代码中的conn，才能建立记录集

能帮我弄下么  我的数据库在 桌面文件夹  新建文件夹 -5678数据库-rkjl.mdb

Private Sub Command1_Click()
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim sql As String
  
  Set cn = New ADODB.Connection
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
  If cn.State = 0 Then cn.Open
  '如果关闭,就打开
  Set rs = New ADODB.Recordset
  rs.ActiveConnection = cn
  rs.CursorLocation = adUseClient
  rs.CursorType = adOpenStatic
  rs.LockType = adLockBatchOptimistic
  sql = "select * from info"
  '数据库的表
  If rs.State = adStateOpen Then rs.Close
  If rs.State = adStateClosed Then rs.Open sql, , , adCmdText
  Set DataGrid1.DataSource = rs
End Sub

把数据库文件换成你的文件库名字就可以