Private Sub Command1_Click()
   FillCombo1 rsGrid(Grid1.Col -  1 ).Name  
End Sub

Private Sub FillCombo1(ByVal FldName As String)
   Dim rs As ADODB.Recordset
   Set rs = rsGrid.Clone
   Combo1.Clear
   Do Until rs.EOF
      Combo1.AddItem rs(FldName) & ""
      rs.MoveNext
   Loop
End Sub

Private Sub FillCombo1(ByVal FldName As String)
   Dim rs As ADODB.Recordset
   Set rs = rsGrid.Clone
   Dim s As String
   rs.Sort = FldName
   Combo1.Clear
   Do Until rs.EOF
      If s <> rs(FldName) & "" Then
         s = rs(FldName) & ""
         Combo1.AddItem s
      End If
      rs.MoveNext
   Loop
End Sub