Private Sub CommandStartSelektion_Click()
Dim i As Integer
Dim SQL_Selektion As String
Dim SQLNegativmerkmale As String
Dim x As Long
Dim datum As String
Dim monat As String
Dim tag As String
Dim jahr As String
 
MousePointer = 11
DoEvents
 
'Hier ist das Label welches den Caption-Wert leer erhalten soll 
LblTrefferSelektion.Caption = ""
On Error GoTo ErrHandler
 
StatusBar.Style = 1
StatusBar.SimpleText = "Die angeforderten Daten werden importiert"
.
.
.
 
Adodc.RecordSource = SQL
Set DataGrid.DataSource = Adodc
Adodc.Refresh
 
 
 
LblTrefferAktionen.Caption = "Anzahl gefundener Kundenstämme: " & _
  Adodc.Recordset.RecordCount
LblTrefferBereinigung.Caption = "Anzahl gefundener Kundenstämme: " & _
Adodc.Recordset.RecordCount
LblTrefferSelektion.Caption = "Anzahl gefundener Kundenstämme: " & _
Adodc.Recordset.RecordCount
 
End Sub