Hjælp til import fra Excel til Access?

Jeg har det her lille problem! Den virker fint hvis der allerede findes et recordset der matcher i Access Databasen. Men hvis der ikke gør, skal den addnew og så hoppe videre til næste i Excel arket....

Her er min kode:


Private Sub ImporterPriser()
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet
Dim rsImportPriser As Recordset
Dim Import_Varenummer As String
Dim Import_Priser As String

Set xlApp = Excel.Application
xlApp.Workbooks.Open ValgAfImportFil
xlApp.Visible = True
       
For X = 0 To 5000
   
    If xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0) = "" Then
    MsgBox ("The Import of the Product are Complete")
    Exit Sub
    Else
        Import_Varenummer = xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0)
       
        Set datDB = DBEngine.Workspaces(0).OpenDatabase(FRM_Start.SHB_DatabaseSti.Text)
        strSQL = "Select * from kundevarenummer WHERE varenummer Like '*" & Import_Varenummer & "*'"
        Set rsImportPriser = datDB.OpenRecordset(strSQL)
       
        If rsImportPriser("varenummer") <> "" Then
            rsImportPriser.Edit
            rsImportPriser("varenavn") = xlApp.ActiveWorkbook.ActiveSheet.Range("B1").Offset(X, 0)
            rsImportPriser("Disponent") = xlApp.ActiveWorkbook.ActiveSheet.Range("C1").Offset(X, 0)
            rsImportPriser("Kundefelt1") = xlApp.ActiveWorkbook.ActiveSheet.Range("D1").Offset(X, 0)
            rsImportPriser("dwg") = xlApp.ActiveWorkbook.ActiveSheet.Range("E1").Offset(X, 0)
            rsImportPriser("Kundefelt2") = xlApp.ActiveWorkbook.ActiveSheet.Range("F1").Offset(X, 0)
            rsImportPriser("mat") = xlApp.ActiveWorkbook.ActiveSheet.Range("G1").Offset(X, 0)
            rsImportPriser("pris") = xlApp.ActiveWorkbook.ActiveSheet.Range("H1").Offset(X, 0)
           
            rsImportPriser.Update
            xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0).Font.Color = vbBlue
        Else
            rsImportPriser.AddNew
            rsImportPriser("varenummer") = xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0)
            rsImportPriser("varenavn") = xlApp.ActiveWorkbook.ActiveSheet.Range("B1").Offset(X, 0)
            rsImportPriser("Disponent") = xlApp.ActiveWorkbook.ActiveSheet.Range("C1").Offset(X, 0)
            rsImportPriser("Kundefelt1") = xlApp.ActiveWorkbook.ActiveSheet.Range("D1").Offset(X, 0)
            rsImportPriser("dwg") = xlApp.ActiveWorkbook.ActiveSheet.Range("E1").Offset(X, 0)
            rsImportPriser("Kundefelt2") = xlApp.ActiveWorkbook.ActiveSheet.Range("F1").Offset(X, 0)
            rsImportPriser("mat") = xlApp.ActiveWorkbook.ActiveSheet.Range("G1").Offset(X, 0)
            rsImportPriser("pris") = xlApp.ActiveWorkbook.ActiveSheet.Range("H1").Offset(X, 0)
           
            rsImportPriser.Update
            xlApp.ActiveWorkbook.ActiveSheet.Range("A1").Offset(X, 0).Font.Color = vbBlue
        End If
    End If
Next X

rsImportPriser.Close
End Sub