ใครมี code ที่ใช้ในการ convert array ไปเป็น dataset บ้างครับ

Function DataTableRows() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow
		
	'*** Column ***'
        dt.Columns.Add("CustomerID")
        dt.Columns.Add("Name")
        dt.Columns.Add("Email")
        dt.Columns.Add("CountryCode")
        dt.Columns.Add("Budget")
        dt.Columns.Add("Used")
		
	'*** Rows ***'
	dr = dt.NewRow
        dr("CustomerID") = "C001"
        dr("Name") = "Win Weerachai"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "TH"
        dr("Budget") = "1000000"
        dr("Used") = "600000"
        dt.Rows.Add(dr)

	'*** Rows ***'
	dr = dt.NewRow
        dr("CustomerID") = "C002"
        dr("Name") = "John Smith"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "EN"
        dr("Budget") = "2000000"
        dr("Used") = "800000"
        dt.Rows.Add(dr)

	'*** Rows ***'
	dr = dt.NewRow
        dr("CustomerID") = "C003"
        dr("Name") = "Jame Born"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "US"
        dr("Budget") = "3000000"
        dr("Used") = "600000"
        dt.Rows.Add(dr)
		
	'*** Rows ***'
	dr = dt.NewRow
        dr("CustomerID") = "C004"
        dr("Name") = "Chalee Angel"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "US"
        dr("Budget") = "4000000"
        dr("Used") = "100000"
        dt.Rows.Add(dr)

	Return dt '*** Return DataTable ***'
End Function

$arr = array("one", "two", "three");
reset($arr);
while (list(, $value) = each($arr)) {
    echo "Value: $value<br />\n";
}

ตรง ECHO เราก็เขียนเป็นคำสั่ง sql ให้มัน INSERT เอาครับผม