excelden access e veri gönderme sorunu

[yNsr43]

merhaba arkadaşlar excelden girdiğim verileri accesse yollamak istiyorum ayni verileri kayıt etmemesi için önce excele access deki verileri excele "adres" sheete aldim oradan kontrol edip olmayanlari kayıt ettirmek istedim 1 veriyi kaydedebiliyor ama ikinci veriyi ekleyince
strqry = "Insert into adres (FİRMA, TC) values" & "('" & namevalue & "* " & tcvalue & "*')" şu kısım kısım hata veriyor yanlış mi ekliyorum çözemedim yardımcı olursanız sevinirim ya da daha pratik bir yöntemi varsa o da olur
teşekkürler.

Sub veriyoksa()
Dim sh As Worksheet, sonsat As Long
Dim k As Range
Dim con As New Connection
Dim namevalue As String
Dim tcvalue As Integer
Dim strqry As String
Const strconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & "DATA SOURCE = d:\data.mdb;"
con.Open (strconnect)

namevalue = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 0).Value
tcvalue = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 1).Value


Set sh = Sheets("adres")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A1:A" & sonsat).Find(Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 0), , xlValues, xlWhole)
If k Is Nothing Then
sh.Range("A" & sonsat + 1) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 0).Value
sh.Range("a40000").End(xlUp).Offset(0, 6) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 1).Value 'tc
sh.Range("a40000").End(xlUp).Offset(0, 3) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 3).Value 'baba
sh.Range("a40000").End(xlUp).Offset(0, 2) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 4).Value 'ana
sh.Range("a40000").End(xlUp).Offset(0, 5) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 6).Value 'yıl
sh.Range("a40000").End(xlUp).Offset(0, 4) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 5).Value ' yer
sh.Range("a40000").End(xlUp).Offset(0, 1) = Sheets("sayfa4").Range("c9000").End(xlUp).Offset(0, 14).Value ' tel no

strqry = "Insert into adres (FİRMA, TC) values" & "('" & namevalue & "* " & tcvalue & "*')"
con.Execute strqry

MsgBox " adet kayıt var."
End If

End Sub