Private Sub cmbPlz_Change()
Dim nId As Long, sId As String
  With cmbPlz
    sId = .SubItem(.ListIndex, 1)
  End With
  Label5.Caption = "sId= " & sId
  If sId <> vbNullString Then
    nId = CLng(sId)
    Call setRecPlz(nId)
  Else
    txtOrt.SetText vbNullString
  End If
End Sub