ผมต้องการ Import นำข้อมูลจาก Excel ไปไว้ใน SQL server และต้องการเขียนโค๊ด VB.NET ดึงข้อมูลไปไว้ใน SQL server ทำไง ระกวนช่วยที

Sub Page_Load(sender As Object, e As EventArgs)	
Dim objConn As New OleDbConnection
Dim dtAdapter As OleDbDataAdapter 
Dim dt As New DataTable 

Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("MyXls/MyExcelDB.xls")&";Extended Properties=Excel 8.0;"
objConn = New OleDbConnection(strConnString)
objConn.Open()

Dim strSQL As String	
strSQL = "SELECT * FROM [Sheet1$]"

dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

'*** BindData To DataGrid ***'
Me.myDataGrid.DataSource = dt
Me.myDataGrid.DataBind()

dtAdapter = Nothing

objConn.Close()
objConn = Nothing

End Sub

	Dim connetionString As String
        Dim connection As SqlConnection
        Dim adapter As New SqlDataAdapter
        Dim sql As String
        connetionString = "Data Source=ServerName;Initial Catalog=MyDatabase;User ID=UserName;Password=Password"
        connection = New SqlConnection(connetionString)
        sql = "insert into product (Product_id,Product_name,Product_price) values(1,'Product Name',500)"
        Try
            connection.Open()
            adapter.InsertCommand = New SqlCommand(sql, connection)
            adapter.InsertCommand.ExecuteNonQuery()
            MsgBox("Row inserted !! ")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
	

Dim objConn As New OleDbConnection
Dim dtAdapter As OleDbDataAdapter 
Dim dt As New DataTable 

Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("MyXls/MyExcelDB.xls")&";Extended Properties=Excel 8.0;"
objConn = New OleDbConnection(strConnString)
objConn.Open()

Dim strSQL As String	
strSQL = "SELECT * FROM [Sheet1$]"

dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

'*** BindData To DataGrid ***'
Me.myDataGrid.DataSource = dt
Me.myDataGrid.DataBind()

dtAdapter = Nothing

objConn.Close()
objConn = Nothing


Dim connetionString As String
Dim connection As SqlConnection
Dim adapter As New SqlDataAdapter
Dim i As Integer
Dim sql As String
connetionString = "Data Source=ServerName;Initial Catalog=MyDatabase;User ID=UserName;Password=Password"
connection = New SqlConnection(connetionString)
connection.Open()

For i = 0 To dt.Rows.Count - 1
	sql = "insert into product (Product_id,Product_name,Product_price) values('" & dt.Rows(i)(0) & "','" & dt.Rows(i)(1) & "','" & dt.Rows(i)(2) & "')"
	adapter.InsertCommand = New SqlCommand(sql, connection)
	adapter.InsertCommand.ExecuteNonQuery()
Next
connection.Close()

OleDbConnection objConn = new OleDbConnection();
OleDbDataAdapter dtAdapter = default(OleDbDataAdapter);
DataTable dt = new DataTable();

string strConnString = null;
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; " + "Data Source=" + Server.MapPath("MyXls/MyExcelDB.xls") + ";Extended Properties=Excel 8.0;";
objConn = new OleDbConnection(strConnString);
objConn.Open();

string strSQL = null;
strSQL = "SELECT * FROM [Sheet1$]";

dtAdapter = new OleDbDataAdapter(strSQL, objConn);
dtAdapter.Fill(dt);

//*** BindData To DataGrid ***'
this.myDataGrid.DataSource = dt;
this.myDataGrid.DataBind();

dtAdapter = null;

objConn.Close();
objConn = null;


string connetionString = null;
SqlConnection connection = default(SqlConnection);
SqlDataAdapter adapter = new SqlDataAdapter();
int i = 0;
string sql = null;
connetionString = "Data Source=ServerName;Initial Catalog=MyDatabase;User ID=UserName;Password=Password";
connection = new SqlConnection(connetionString);
connection.Open();

for (i = 0; i <= dt.Rows.Count - 1; i++) {
	sql = "insert into product (Product_id,Product_name,Product_price) values('" + dt.Rows[i][0] + "','" + dt.Rows[i][1] + "','" + dt.Rows[i][2] + "')";
	adapter.InsertCommand = new SqlCommand(sql, connection);
	adapter.InsertCommand.ExecuteNonQuery();
}
connection.Close();