Sub DbKostenstellenInsert(NodeNumber As String, NodeName As String, NodeType As _
  Integer, NodeGroup As String)
Dim sql As String
Dim db As Database
 
Set db = OpenDatabase(sDbSavePath, False, False)
 
sql = "INSERT INTO Kostenstellen (Nummer,Bezeichnung,Stammkostenstelle,Gruppe)" _
    + " VALUES ('" + NodeNumber + "', '" _
    + NodeName + "', '" _
    + NodeType + "', '" _
    + NodeGroup + "')"
 
db.Execute sql
 
db.Close
End Sub

    + NodeGroup + "')"