insert into SQL Table from GridView

[aras_ir]

سلام
برنامه ای نوشتم که اطلاعات رو از فایل excel دریافت میکنه و در GridView نمایش میده میخوام این اطلاعات رو توی یه Table در SQL بریزم
اگر کمک کنید ممنون میشم

[aras_ir]

خودم پیداش کردم


Dim constr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; EXTENDED PROPERTIES=EXCEL 8.0; DATA SOURCE= "conStr += "C:\Excel.xlsx; "

Dim xlcon As New OleDbConnection(constr)

xlcon.Open()

Dim cmd As New OleDbCommand("Select * from [sheet1$]", xlcon)

Dim dr As OleDbDataReader = cmd.ExecuteReader()

Dim sqlcon As New SqlConnection("Data Source=(local);Initial Catalog=[Database_Name];Integrated Security=SSPI")
sqlcon.Open()
While dr.Read

Dim cmd2 As New SqlCommand("INSERT INTO Table_Name(Column_Name) VALUES('" + dr.Item(0).ToString() + "')", sqlcon)
cmd2.ExecuteNonQuery()

End While


امیدوارم خوب باشه

اگر موردی داره از برنامه نویسان عزیز خواهشمندم راهنمایی کنید