Public Sub Get_actual_cboAnsprechpartner_Anzahl() 
  sqlstate = "SELECT COUNT(*) FROM Ansprechpartner WHERE " & _
    "Ansprechpartner.Anp_Nr=" & hanpnr
 
  Set rs = Con.Execute(sqlstate)
  Forms!frmKontaktpersonen.txtAnz_cbo.Value = CStr(rs.RecordCount)
  rs.Close 
  Set rs = Nothing 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de