vb用ADODC连接sql的问题

Question

Adodc2.Recordset.Fields(0).Value = Text1.TextAdodc1.RecordSource = "select 商品名称 from 商品信息 where 商品编号='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(1).Value = Adodc1.RecordSourceAdodc1.RecordSource = "select 商品价格 from 商品信息 where 商品编号='" & Str(Text1.Text) & "'"
Adodc2.Recordset.Fields(2).Value = Adodc1.RecordSourced = InputBox("请输入您需要的数量", "商品数量选择")
Adodc2.Recordset.Fields(3).Value = d总是说多步操作产生错误，请逐步检查，但是错在哪里啊，请教大神

Answer 1

写法不严密:
    Adodc2.Recordset.Fields(0).Value = Text1.Text
    Adodc1.RecordSource = "select 商品名称 from 商品信息 where 商品编号='" & Str(Text1.Text) & "'"
    Adodc2.Recordset.Fields(1).Value = Adodc1.Recordset(0)
    Adodc1.RecordSource = "select 商品价格 from 商品信息 where 商品编号='" & Str(Text1.Text) & "'"
    Adodc2.Recordset.Fields(2).Value = Adodc1.Recordset(0)
    d = InputBox("请输入您需要的数量", "商品数量选择")
    Adodc2.Recordset.Fields(3).Value = d

Answer 2

写法还可简化：    Adodc2.Recordset.Fields(0).Value = Text1.Text
    Adodc1.RecordSource = "select 商品名称,商品价格 from 商品信息 where 商品编号='" & Str(Text1.Text) & "'"
    Adodc2.Recordset.Fields(1).Value = Adodc1.Recordset(0)
    Adodc2.Recordset.Fields(2).Value = Adodc1.Recordset(1)
    d = InputBox("请输入您需要的数量", "商品数量选择")
    Adodc2.Recordset.Fields(3).Value = d