如何让combobox显示数据库中的所有字段？

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123"
SqlStr = "Select 会员姓名 From 会员消费"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Combo1.Text = rst.Fields("会员姓名").Value
Do While rst.EOF = False
Combo1.AddItem rst.Fields("会员姓名").Value
rst.MoveNext
Loop
End Sub