ALTER TABLE

Dim sql As String = "SELECT Katalogid FROM Kataloggruppen"
        dal = New SAmAs_DAL.DAL(userstring)
        api = New SAmAs_API.api
        Dim sapi As New Samas_sapi.sapi(userstring)
        Dim cmd As SqlClient.SqlCommand
 
        sqlcn = New System.Data.SqlClient.SqlConnection(dal.GetConnectString(, _
          True))
        sqlcn.Open()
        da = New System.Data.SqlClient.SqlDataAdapter(sql, sqlcn)
        Dim dsGuid As New DataSet("DataSet")
        da.Fill(dsGuid, "DataSet")
        dt = dsGuid.Tables(0)
        sqlcn.Close()
 
        dt.Columns().Add("KID", GetType(Guid))
 
        Dim Zeilen As Integer = dt.Rows().Count()
        Dim i As Integer
        Dim newID As Guid
 
        sqlcn.Open()
        sql = "ALTER TABLE Kataloggruppen ADD COLUMN KID"
        cmd = New SqlClient.SqlCommand
        cmd.CommandText = sql
        cmd.Connection = sqlcn
        Try
            cmd.ExecuteNonQuery()
        Catch ex1 As SqlClient.SqlException
            ex1.ToString()
        End Try
 
        sqlcn.Close()
 
        For i = 0 To Zeilen - 1
            Try
                cmd = New SqlClient.SqlCommand
                newID = New Guid
                newID = api.MakeGUID(Long.Parse(dt.Rows(i)("Katalogid")))
            Catch ex As NullReferenceException
                ex.ToString()
                Exit Sub
            End Try
            sqlcn.Open()
            sql = "insert into Kataloggruppen(KID) "
            sql = sql & " values (@newID)"
            cmd.CommandText = sql
            cmd.Connection = sqlcn
            cmd.Parameters.Clear()
            With cmd
                .Parameters.Add("@newID", newID)
            End With
            Try
                cmd.ExecuteNonQuery()
            Catch ex As SqlClient.SqlException
                ex.ToString()
            End Try
            sqlcn.Close()
        Next i