如何在COMBO1下拉显示数据库中代码和名称（在同一行）

Question

Private Sub Combo1_DropDown()
    If Not (rs1.EOF = True And rs1.BOF = True) Then
        Do Until rs1.EOF = True
           Combo1.AddItem rs1.Fields("jgmc").Value
           Combo1.AddItem rs1.Fields("jgdm").Value
           rs1.MoveNext
        Loop
    End If
End Sub
时代码和名称不在同一行？？

Answer 1

Combo1.AddItem rs1.Fields("jgmc").Value & "  " & rs1.Fields("jgdm").Value

Answer 2

Private Sub Combo1_DropDown()
    If Not (rs1.EOF = True And rs1.BOF = True) Then
        Do Until rs1.EOF = True
          Combo1.AddItem rs1.Fields("jgmc").Value & " " & rs1.Fields("jgdm").Value
          Combo1.AddItem 
          rs1.MoveNext
        Loop
    End If
End Sub