ExcelVBAでAccessDBにデータを登録したい

前提・実現したいこと

ExcelVBAでAccessDBにデータを登録したい
※ただしすでに登録しているデータはスキップしたい

発生している問題・エラーメッセージ

登録してあるデータをスキップせずに登録してしまう

該当のソースコード

ExcelVba
1    Dim adoCn As Object 'ADOコネクションオブジェクト
2    Dim adoRs As Object 'ADOレコードセットオブジェクト
3    
4    Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションのオブジェクトを作成
5    Set adoRs = CreateObject("ADODB.Recordset") 'ADOレコードセットオブジェクトを作成
6
7    adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & accDb & ";" 'Accessファイルに接続
8'※　accDbはフルパスのAccessファイル名
9    With adoRs
10     .Open "TEBLE_NAME", adoCn, adOpenKeyset, adLockOptimistic 'レコードセットを開く
11         Do While wb.Worksheets(sht).Cells(i, 2).value <> ""
12
13         If adoRs!型式 = wb.Worksheets(sht).Cells(i, 4).value Then
14
15         Else
16            .AddNew
17                !型式 = wb.Worksheets(sht).Cells(i, 4).value
18            .Update
19         End If
20
21        i = i + 1
22        Loop
23
24        ' レコードセットを閉じる
25        .Close
26    End With
27    
28    adoCn.Close 'コネクションのクローズ
29    
30    ' オブジェクトの破棄
31    Set adoRs = Nothing
32    Set adoCn = Nothing