这个是我随便写写的~~在附件里面~~但是运行的时候就怎么有错误了呢~~~帮忙看下~~~

Private Sub Command2_Click()
    Command1.Enabled = False
    Command2.Enabled = True
    '数据的添加
    Adodc1.recordset.addnew
    Adodc1.Recordset.Fields(0) = Text1.Text
    Adodc1.Recordset.Fields(1) = Text2.Text
    Adodc1.Recordset.Fields(2) = Text3.Text
    Adodc1.Recordset.Fields(3) = Text4.Text
    Adodc1.Recordset.Fields(4) = Text5.Text
    Adodc1.Recordset.Update
    Adodc1.Refresh
End Sub