如何获取datacombo列表选中的数据相邻的其他字段的值

access数据库如下：

id   name    能量   水分

1    鸡蛋    200     15

2    糖      560     3

3    米饭    76      46

VB代码：

Private Sub Form_Load()
Dim a As String
    With Adodc1

        .ConnectionString = _
                            "Provider=Microsoft.Jet.OLEDB.4.0;" _
                            & "Data Source=db1.mdb;" _
                            & "Persist Security Info=False"

        .CommandType = adCmdText
        .CursorType = adOpenDynamic
        .RecordSource = "SELECT * FROM food ORDER BY Id"
        .Visible = False
        .Refresh

    End With

    Set DataCombo1.RowSource = Adodc1
    DataCombo1.ListField = "Name"
    DataCombo1.BoundColumn = "Id"

    '后面的不会写了，希望下拉列表里选中“糖”时，把糖的“能量”和“水分”对应的值显示到text1和text2上

本人菜鸟没有学过编程，自学中，真心求教，分都给你
        --------------------编程问答-------------------- 再加2个DataCombo控件就好了
DataCombo2
DataCombo3 --------------------编程问答-------------------- 利用条件查询填写控件。 --------------------编程问答-------------------- 大侠能具体一点吗？代码应该如何填写

补充：VB ,  基础类