Combo1.Clear
If Rs.RecordCount > 0 Then
  While Not Rs.Eof
    Combo1.AddItem Rs.Fields(0).Value
    Combo1.ItemTag/(Combo1.NewIndex) = Rs.Fields(1).Value
    Rs.MoveNext
  Wend
End If

Private Sub Command1_Click()
  Dim sStadt As String
  Dim nNr As Long
 
  sStadt = Combo1.Text
  nNr = Combo1.ItemData(Combo1.ListIndex)
  ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de