向ACCESS数据库中添加数据！

Question

Private Sub Command1_Click()
Dim a As ADODB.Connection
Dim b As ADODB.Recordset
Set a = New ADODB.Connection
Set b = New ADODB.Recordset
d = Text1.Text
a.Open "liu", "", ""
b.CursorLocation = adUseClient
b.Open "select * from corpinf where corpid like '" & d & "'", a, adOpenDynamic, adLockBatchOptimistic
If b.RecordCount = 0 Then
b.AddNew
b("corpid") = Trim(Text1.Text)
b.update
end sub
怎么添加不到数据中数据呀！

Answer 1

改b.Open "select * from corpinf where corpid like '" & d & "'", a, adOpenDynamic, adLockBatchOptimistic
为
b.Open "select * from corpinf where corpid like '" & d & "'", a, adOpenDynamic, adLockOptimistic

Answer 2

b("corpid") = Trim(Text1.Text)
改为
b.fields("corpid") = Trim(Text1.Text)

Answer 3

还有
"select * from corpinf where corpid like '%" & d & "%'"