ADO.NET and DTS

I wonder if anybody has used a dataset/Datreader to
create a DTS.Datapump for transfering data into SQL server

This some of my old code, i am trying to do this as a dll in
VB.NET

Any help is apprecietad,
Tom

My Old Code
-----------------------

oTransformation = oCustomTask2.Transformations.New("DTS.DataPump TransformCopy")

oTransformation.Name = "DirectCopyXform"
oTransformation.TransformFlags = 63
oTransformation.ForceSourceBlobsBuffered = 0
oTransformation.ForceBlobsInMemory = False
oTransformation.InMemoryBlobSize = 1048576
oTransformation.TransformPhases = 4

In a loop and a variant array

oColumn = oTransformation.SourceColumns.New(mvarTableDesc(i, 0), mvarTableDesc(i, 1))
oColumn.Name = mvarTableDesc(i, 0)
oColumn.Ordinal = mvarTableDesc(i, 1)
'oColumn.Flags = 104
oColumn.Size = mvarTableDesc(i, 2)
oColumn.DataType = mvarTableDesc(i, 3)
oColumn.Precision = mvarTableDesc(i, 4)
oColumn.NumericScale = mvarTableDesc(i, 5)
oColumn.Nullable = mvarTableDesc(i, 6)

oTransformation.SourceColumns.Add(oColumn)