For Each dc As DataCol In DataTables("订单情况").DataCols

    Dim Builder As New ADOXBuilder("订单1") \'要指定数据源名称

    Dim tbl As ADOXTable

    Builder.Open()

    tbl = Builder.NewTable("订单情况") \'创建表

    With tbl

        Select Case dc.DataType.Name

            Case  "String"

                .AddColumn(dc.Name ,ADOXType.String,100)

            Case  "DateTime"

                .AddColumn(dc.Name ,ADOXType.DateTime)

            Case  "Boolean"

                .AddColumn(dc.Name ,ADOXType.Boolean)

            Case  "Double"

                .AddColumn(dc.Name ,ADOXType.Double)

            Case  "Text"

                .AddColumn(dc.Name ,ADOXType.Text)

        End Select

    End With

    Builder.AddTable(tbl, True, True) \'增加表

    Builder.Close()

Next

我这个代码做来做去,只能定向出一个列.怎么修改,老大帮忙一下.