If vorhanden("True") = 0 Then

Dim ConnectionString
ConnectionString="..."
DBConnection.Open ConnectionString
Dim SQLString
Dim vorhanden
SQLString = "USE FI " & _
            " SELECT COUNT (*) As True " & _
            " FROM KstStelle" & _
            " WHERE Kst_Nummer='" & get_cell(lauf, 1, sheet) & _
              get_cell(lauf, 2, sheet) & get_cell(lauf, 3, sheet) & _
              get_cell(lauf, 4, sheet) & "'"
 
Set vorhanden = DBConnection.Execute(SQLString)
 
'Wenn nein (vorhanden=0) dann erstelle ihn
If vorhanden("True") = 0 Then
     'Führe weiteren Code aus
End If