关于vb属性的使用无效的问题

这是调用数据库并向数据库插入内容的代码 
Private Sub Form_Load()
On Error Resume Next
Dim provider As String
provider = "Provider = SQLOLEDB.1"
datasource = "User ID=sa;PWD=;Data Source=PC-201111082239\ZJW;Initial Catalog=客户数据管理"
With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "联系记录表"
.Refresh
End With
End Sub
Private Sub Command1_Click()
With Adodc1
.Recordset AddNew
.Recordset.Fields(0).Value = Text1.Text
.Recordset.Fields(1).Value = Text2.Text
.Recordset.Fields(2).Value = Text3.Text
.Recordset.Fields(3).Value = Text4.Text
.Recordset.Fields(4).Value = Text5.Text
.Recordset.Fields(5).Value = Text6.Text
.Recordset.Fields(6).Value = Text7.Text
 .Recordset.Update
 End With
 Set main.DataGrid1.datasource = Adodc1
End Sub


运行后单击按钮一直出现命令的使用无效 单击确定在command1_click事件显示那个黄色提示 
求大神帮解决

VB code

Private Sub Form_Load()
On Error Resume Next
Dim provider As String
provider = "Provider = SQLOLEDB.1"
datasource = "User ID=sa;PWD=;Data Source=PC-201111082239\ZJW;Initial Catalog=客户数据管理"
With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "联系记录表"
.Refresh
End With
End Sub
Private Sub Command1_Click()
With Adodc1
.Recordset AddNew
.Recordset.Fields(0).Value = Text1.Text
.Recordset.Fields(1).Value = Text2.Text
.Recordset.Fields(2).Value = Text3.Text
.Recordset.Fields(3).Value = Text4.Text
.Recordset.Fields(4).Value = Text5.Text
.Recordset.Fields(5).Value = Text6.Text
.Recordset.Fields(6).Value = Text7.Text
 .Recordset.Update
 End With
 [color=#FF0000]call form_load[/color]
End Sub