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

我通过几个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

但是太多了，不太方便

求正解