Private Sub FireCommand(sBuildSQLCommand As String)
    Dim Response
On Error GoTo HandleError
 
If GetState(adoCN_Local.State) = "adStateOpen" Then
    Response = MsgBox("In Function", vbOKOnly)
    Set adoCM_FillInterface = New ADODB.Command
    adoCM_FillInterface.ActiveConnection = adoCN_Local
    adoCM_FillInterface.CommandText = sBuildSQLCommand
    Response = MsgBox(sBuildSQLCommand, vbOKOnly)
    adoCM_FillInterface.Execute
    Response = MsgBox("Done", vbOKOnly)
End If
    Exit Sub
HandleError:
'Fehlermeldung warum es nicht geht soll hier erscheinen.
End Sub