我通过几个combo控件，选择数据录入保存后，再通过“上一条”等按钮再输出所保存的数据

以前是每个text对应一个数据库里的一个数据，但现在combo里对应数据表里好几个数据，不是text控件那样一一对应的，
那个好搞，用如下代码：

Text1.Text = Rst.Fields("jr").Value & ""

但是，如何使已经保存的数据表再输出到combo.text里显示出来？

我试着写下如下代码：

 If Rst.Fields("a").Value <> "" Then
        
        Combo1.Text = Rst.Fields("a").Value & ""
            If Rst.Fields("a1").Value <> "" Then
        
            Combo2.Text = Rst.Fields("a1").Value & ""
            Else
            Combo1.Text = Rst.Fields("a2").Value & ""
            End If
        Else
        Combo1.Text = Rst.Fields("b").Value & ""
        End If

但是太多了，不太方便

求正解

举个例子，

comob1list有：收入、支出
comob2list有：其他收入、工资收入、。。。。日常支出、其他支出。。。。。
comob3list有：、衣服支出、饮食支出、住宿支出、交通支出、通讯支出。。。。。
comob4list有：、爸爸衣服、妈妈衣服。。。。。
分别对应上面的
我在db01.mdb分别设置了“收入、支出、其他收入、工资收入、衣服支出、饮食支出、住宿支出、爸爸衣服、妈妈衣服”
我在comob1控件选择“收入”保存到db01.mdb：收入

想在查看记录时，comob1.text等分别显示对应的内容，

如何解决？

comob1list有：收入、支出
comob2list有：其他收入、工资收入、。。。。日常支出、其他支出。。。。。
comob3list有：、衣服支出、饮食支出、住宿支出、交通支出、通讯支出。。。。。
comob4list有：、爸爸衣服、妈妈衣服。。。。。
分别对应上面的
我在db01.mdb分别设置了“收入、支出、其他收入、工资收入、衣服支出、饮食支出、住宿支出、爸爸衣服、妈妈衣服”等字段
我在comob1控件选择“收入”保存到db01.mdb：收入

想在查看记录时，comob1.text等分别显示对应字段的内容，

如何解决？