Datatable转换成 Recordset

Imports System
Imports System.Data
Imports ADODB
Imports System.Array
Imports System.Reflection

    Private Sub frmYDZB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim dr As DataRow
            Dim rs As Recordset
            Dim i As Integer

            rs = New Recordset
            For Each col As DataColumn In MainDT.Columns
                rs.Fields.Append(col.ColumnName, colGetType(col.DataType), -1, FieldAttributeEnum.adFldIsNullable)
            Next

            rs.Open(Missing.Value, Missing.Value, CursorTypeEnum.adOpenUnspecified, LockTypeEnum.adLockUnspecified, -1)

            For Each dr In MainDT.Rows
                rs.AddNew(Missing.Value, Missing.Value)
                For i = 0 To MainDT.Columns.Count - 1
                    rs.Fields(i).Value = dr(i).ToString
                Next
            Next
    End Sub

 ''' <summary>
    ''' 系统类型转换成 ADO类型
    ''' </summary>
    ''' <param name="typeval"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function colGetType(ByVal typeval As Type) As DataTypeEnum
        Select Case typeval.ToString
            Case "System.Int32"
                Return DataTypeEnum.adInteger
            Case "System.String"
                Return DataTypeEnum.adVarChar
        End Select
    End Function