Public Class PrintDataRows
 
    Public Sub ToDgv(ByVal dr_source() As DataRow, ByVal dtType As DataTable, _
      Optional ByVal Header As String = Nothing)
        Dim dt As New DataTable
 
        For Each clm As DataColumn In dtType.Columns
            dt.Columns.Add(clm.ColumnName, clm.DataType)
        Next
 
        For Each rw As DataRow In dr_source
            Dim rw_new As DataRow = dt.NewRow
            rw_new = rw
            dt.ImportRow(rw_new)
        Next
 
        PrintTable.ToDgv(dt, Header)
    End Sub
End Class