Spalte mit Standardwert einer Tabelle per SMO hinzufügen

Hallo!

Ich versuche seit geraumer Zeit in einer SQL Datenbank (SQL Server 2008 R2 Express) eine Tabelle um eine Spalte zu erweitern, die als Standartwert einen Leerstring haben soll. Die Spalte ohne Standardwert hinzufügen funktioniert.

Aber am Standardwert scheitere ich kläglich. Über Vorschläge wie das funktioniert bin ich dankbar! Hier mein bisheriger Code der funktioniert:

        Dim sqlServer As New Server(My.Settings.SQLServer)
        Dim Spalte As Column
        Dim tb As Table

        tb = New Table(sqlServer.Databases(My.Settings.SQLDBName), "Test_Table")
        Spalte = New Column(tb, "TextZeilenAlle", DataType.NVarChar(50))
        Spalte.Nullable = False
        tb.Columns.Add(Spalte)
        tb.Create()

Und das hier geht nicht:

Dim def As [Default]
        def = New [Default](sqlServer.Databases(My.Settings.SQLDBName), "Test_Default2")
        def.TextBody = ""
        def.Create()
        def.BindToColumn("VerdienstabrechnungKopf", "TextZeilenAlle")