Public Function ComRecordsetToDataTable(ByVal ADODBRecordset As Object, _
                                                          Optional ByRef RowCount As Integer = - 1 ) As DataTable
        Dim returned_datatable As DataTable = New DataTable("NewTable")
        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
        Try
            'Fill schema
            adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
            RowCount = adapter.Fill(returned_datatable, ADODBRecordset)
        Catch ex As Exception
            returned_datatable = Nothing
        Finally
            adapter.Dispose()
        End Try
        Return returned_datatable
    End Function