急啊，邦忙

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB临时文件夹\产品关系表.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "产品表"
Adodc1.Recordset.Find "钢种='wang'"                       '报错处　　报错信息：对象变量或　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　With块变量未　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　定义
Adodc1.Recordset.Fields("甲班1＃机当日累计") = Str(1)
Adodc1.Recordset.Fields("甲班1＃机合计") = Str(2)
Adodc1.Recordset.Fields("甲班1＃机钢铸浇坯数") = Str(3)
End Sub为身摸要报错？？？？？？？急啊，为什么啊，邦邦忙啊