作业马上就要交了，很急，希望大侠帮助！谢谢！！下面是代码：
Private Sub Command1_Click()
    '在数据表中查询输入的数据
    Adodc1.RecordSource = "select * from 表头数据表  where  仪器编号='" & Trim(Text2(0).Text) & "'"
    Adodc1.Refresh
    '判断输入数据是否存在
    If Adodc1.Recordset.RecordCount > 0 Then
        MsgBox "输入的记录已存在", , ""
    Else
        '增加新记录
        Adodc1.Recordset.AddNew
        For i = 0 To 7
            Adodc1.Recordset.Fields(i) = Text1(i).Text
        Next i
        Adodc1.Recordset.Update
        MsgBox "增加记录成功", , ""
        Adodc1.RecordSource = "select * from 表头数据表"
        Adodc1.Refresh
    End If
End Sub


运行不了，不知道哪儿出错了。