Import Excel sheet to access database using vb.net

[satenova]

Hello Friends,



I am newbie when it comes to vb.net and i need to import excel sheet into access db using vb.net application. Here is the code i use for now to upload excel sheet and it works perfectly but i when i upload the file again it should include only the new records by checking the existence of ID field which i use as primary key. For now it pops up the message"Table Exists already"Could anyone help me pls?



Dim AccessConnection As New System.Data.OleDb.OleDbConnection

Dim _conn As String

Dim SchemaTable As DataTable

AccessConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=somefile.mdb"

AccessConnection.Open()

SchemaTable = AccessConnection.GetOleDbSchemaTable(System.Data.O leDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "mytable"})



If SchemaTable.Rows.Count <> 0 Then

MsgBox("Table Exists already" )

Else

Dim _filename As String = "myexcelsheet.xls"

_conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _filename & ";" & "Extended Properties=Excel 8.0;"

Dim _connection As OleDbConnection = New OleDbConnection(_conn)

Dim _command As OleDbCommand = New OleDbCommand

_command.Connection = _connection

Try

_command.CommandText = "SELECT * INTO [MS Access;Database=somefile.mdb].[accesstbname] FROM [Sheet1$]"

_connection.Open()

_command.ExecuteNonQuery()

MessageBox.Show("The Data Imported Successfully!")

Catch e1 As Exception

MessageBox.Show("Error!.Your Excel Spread Sheet has some problems.")

End Try

End If