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 AccessConnectio n As New System.Data.Ole Db.OleDbConnect ion

Dim _conn As String

Dim SchemaTable As DataTable

AccessConnectio n.ConnectionStr ing = "Provider=Micro soft.Jet.OLEDB. 4.0;" & "Data Source=somefile .mdb"

AccessConnectio n.Open()

SchemaTable = AccessConnectio n.GetOleDbSchem aTable(System.D ata.OleDb.OleDb SchemaGuid.Colu mns, New Object() {Nothing, Nothing, "mytable"})



If SchemaTable.Row s.Count <> 0 Then

MsgBox("Table Exists already" )

Else

Dim _filename As String = "myexcelsheet.x ls"

_conn = "Provider=Micro soft.Jet.OLEDB. 4.0;" & "Data Source=" & _filename & ";" & "Extended Properties=Exce l 8.0;"

Dim _connection As OleDbConnection = New OleDbConnection (_conn)

Dim _command As OleDbCommand = New OleDbCommand

_command.Connec tion = _connection

Try

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

_connection.Ope n()

_command.Execut eNonQuery()

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

Catch e1 As Exception

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

End Try

End If