constart  'Prozedur die die Connection zur DB herstellt
Dim zaehlen As New ADODB.Recordset
Dim strsql As String
Dim anzahl As Integer
strsql = "select count(LD_LiefererNr) ""varcounter"" from Lieferer"
With zaehlen
    .ActiveConnection = DB
    .Source = "Lieferer"
    .LockType = adLockOptimistic
    .Open strsql
End With
 
'varcounter ist eine Art View in das, das Ergebnis der Zählung steht.
'dann auslesen mit:
 
anzahl = zaehlen.Fields("varcounter")
 
If i = 1 Then
Text1 = "Info: Es befindet sich momentan " & anzahl & " Lieferer in der" & _
  "Liefererdatei."
Else
Text1 = "Info: Es befinden sich momentan " & anzahl & " Lieferer in der" & _
  "Liefererdatei."
End If