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

access数据库如下：id   name    能量   水分  1    鸡蛋    200     152    糖      560     33    米饭    76      46VB代码：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上本人菜鸟没有学过编程，自学中，真心求教，分都给你