Vb.net ile Excel den Access e veri aktarma

Dim Access As String = "e:\accesim.mdb"
Dim yol As String = "e:\excelim.xls"
Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + yol + ";Extended Properties=Excel 8.0"
Try
Using conn As New OleDbConnection(connect)
Using cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & "].[tablo1] SELECT * FROM [Sayfa1$]"
conn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
MsgBox("Operasyon Başarı İle Tamamlanmıştır")
Catch ex As Exception
MsgBox(ex.Message)
End Try


Kaynak : http://www.mikesdotnetting.com/Article/ ... th-ASP.NET