Adding records to table

I use ADODB to add some records from one table to another. It seems that the
last record is missing in the updated table.

call LeggTilFirma()
....
Public Function LeggTilFirma()
Dim connStringCompany As String
Dim RsCompany As ADODB.Recordset
Dim sqlCompany As String

'***** åpne Connection ToFile
Dim cnnToFile As New ADODB.Connection
cnnToFile.CursorLocation = ADODB.CursorLocationEnum.adUseClient
connStringCompany = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
xxxxx\Sales.mdb"
cnnToFile.Open(connStringCompany)

'*** Åpne recordset RsCompany
RsCompany = New ADODB.Recordset
sqlCompany = "INSERT INTO tblGrunndata ( Firmanavn, Adresse,
Telefon, Postnummer, " & _
"GrunndataCity, GrunndataCountry, Selgernavn ) " & _
"SELECT CompanyTillHEI2000H.CompanyName,
CompanyTillHEI2000H.Address, " & _
"CompanyTillHEI2000H.Phone,
CompanyTillHEI2000H.PostalCode, " & _
"CompanyTillHEI2000H.City, CompanyTillHEI2000H.Land, "
& _
"'Svensk selger' AS Selger " & _
"FROM CompanyTillHEI2000H LEFT JOIN tblGrunndata ON " &
_
"(CompanyTillHEI2000H.City =
tblGrunndata.GrunndataCity) AND " & _
"(CompanyTillHEI2000H.CompanyName =
tblGrunndata.Firmanavn) " & _
"WHERE (((tblGrunndata.Firmanavn) Is Null) AND
((tblGrunndata.GrunndataCity) Is Null))"

RsCompany.Open(sqlCompany, cnnToFile,
ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
Me.refresh()

cnnToFile.Close()

End Function

regards
reidarT