'Datenbank erstellen
        Dim dmoDBNew As SQLDMO.Database
        Dim dmoDBFileNew As SQLDMO.DBFile
        Dim dmoDBFileGroup As SQLDMO.FileGroup
 
 
        Set dmoDBNew = New SQLDMO.Database
        Set dmoDBFileNew = New SQLDMO.DBFile
        Set dmoDBFileGroup = dmoDBNew.FileGroups("PRIMARY")
 
 
 
        dmoDBNew.Name = DBName
        dmoDBFileNew.Name = DBName
 
 
        If Right$(Pfad, 1) <> "\" Then Pfad = Pfad + "\"
        Pfad = Pfad + Trim$(DBName) + ".MDF"
 
        dmoDBFileNew.PhysicalName = Pfad
 
 
        dmoDBFileGroup.DBFiles.Add dmoDBFileNew
        dmoSrv.Databases.Add dmoDBNew
 
        'Tabelle erstellen
        DBName = "CREATE TABLE [Kunden] (" & _
    "[ID] [bigint] IDENTITY (1, 1) NOT NULL , " & _
    "[Name] [varchar] (50) NOT NULL"
 
 
        dmoDBNew.ExecuteImmediate DBName

dmoDBNew.ExecuteImmediate DBName