OleDB Create Table, Veri export etmek

[algea]

Bir DataTable ile gelen veriyi; yeni tablo yaratarak veri tabanı içersine nasıl saklayabiliriz. DataTable olarak gelen veri tip bilgisi hakkında (maxRow maxcol) kesin bilgi içermemektedir. Veritabanında yeni tablo yaratarak nasıl oluşturabiliriz. Create table ile olacağını sanıyorum fakat veri tabanları üzerinde bilgim yeterince iyi değil.
Yardımlarınızı bekliyorum.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SQL As String = "Select * From Tablo1"
        Dim ConnectionStr As String = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=c:\temp\vt1.mdb"
        Dim oleConnection As OleDbConnection
        Dim oleDataAdaptor As OleDbDataAdapter
        Dim oleCommandBuilder As OleDbCommandBuilder
        Dim ds As DataSet
        Dim dt As DataTable
        Dim pArray As String(,) = {{"1", "2", "3"}, {"4", "5", "6"}, {"7", "8", "9"}, {"10", "11", "12"}}
        oleConnection = New OleDbConnection(ConnectionStr)
        oleDataAdaptor = New OleDbDataAdapter(SQL, oleConnection)
        oleCommandBuilder = New OleDbCommandBuilder(oleDataAdaptor)
        dt = GetDataTable(pArray)
        oleDataAdaptor.Update(dt)
        oleConnection.Close()
    End Sub

    Public Function GetDataTable(ByVal pArray As String(,)) As DataTable
        Dim dt As New DataTable
        Dim newdatarow As DataRow
        Dim newdatacolumn As DataColumn
        For c As Integer = 0 To UBound(pArray, 2)
            newdatacolumn = New DataColumn
            newdatacolumn.DataType = GetType(String)
            dt.Columns.Add()
        Next
        For r As Integer = 0 To UBound(pArray, 1)
            newdatarow = dt.NewRow
            For c As Integer = 0 To UBound(pArray, 2)
                newdatarow(c) = pArray(r, c)
            Next
        Next
        Return dt
    End Function
End Class