求找错！

代码功能：当刷卡成功时，实现把表2（adodc2）中车号为刷卡时从卡中读出的车号的”品名“字段复制到表1（adodc1）中。
例如：表1中有车号、品名两列。表2中有车号、品名、单位两列，当刷卡时读卡器读出该卡的对应的车号为晋A123456，则把表2中车号为晋A123456的品名列的值复制给表1中品名列的值。
Private Sub Timer2_Timer()
Dim str As String
st = rf_card(icdev, 0, snr(0))
If (st = 0) Then
st = hex_a(snr(0), asnr, 4)
Else
'MsgBox "请刷卡！", vbCritical
Exit Sub
End If
sector = 1
st = rf_authentication(icdev, 0, sector)
If (st = 0) Then
'List1.AddItem ("rf_authentication ok")
Else
MsgBox "1扇区验证失败！", vbCritical
Exit Sub
End If
st = rf_read(icdev, 4, data10)
st = rf_read(icdev, 5, data11)
st = rf_read(icdev, 6, data12)
Text9.Text = data10
Text10.Text = data11
Text11.Text = data12
Text12.Text = Trim(Text9.Text) & Trim(Text10.Text) & Trim(Text11.Text)
If (st <> 0) Then
MsgBox "读卡失败！", vbCritical
Else
st = rf_beep(icdev, 30)
st = rf_halt(icdev)
End If【以上全为读卡功能，不会不用看，主要看下面的】
Adodc1.Recordset.ADDNEW
str = " select 品名 from 进料数据集 where 车号=' " & Text12.Text & " ' "
Adodc2.RecordSource = str
Adodc1.Recordset.Fields("车号") = Text12.Text
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
【报错为：对象变量或with块变量未设置】