Opret eller update

Jeg kan ikke rigtigt løse denne knude.
Jeg ville egentlig gerne genbruge koden fra opret nyt lån idet der skal oprettes over 100 database felter. Funktionen findeslaan fortæller om lånet allerede findes og dermed blot skal opdateres eller om det skal oprettes som et nyt. Da der er tale om omlægning af prioritetslån kan der være flere lån, men det er der taget højde for når de gemmes

Dim x, findes, maxx, As Integer
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\xxx\RR3.accdb;"
    con.Open
    Set rs.ActiveConnection = con
    laanname = Sheets("Rullelister").Range("R2")
    LaanBeskriv.Show      ' Finder/henter navn på Beregning
    findes = FindesLaan  ' eksisterer lån I forvejen
   
    If findes = 1 Then 
        rs.Open "Select * from dbo_LoanInformation WHERE_      CalculationID = '" & laanname & "'", con
        rs.MoveFirst
            Do

          ' Her skal update koden stå f.eks
              Update ukey = 777

          Loop Until rs.EOF
        Set rs = Nothing
        con.Close
        Set con = Nothing
    Else
    ' nyt lån oprettes
        rs.Open "dbo_LoanInformation", con, adOpenDynamic, adLockOptimistic, adCmdTable ' nyt lån gemmes
        maxx = Sheets("Rullelister").Range("P2").Value
        maxy = Sheets("Rullelister").Range("P4").Value
        For x = 0 To maxx - 1
            With rs
            .AddNew
            .Fields("ukey") = Sheets("Rullelister").Range("R8").Value
            .Update
        End With
        Next x                   
        Set rs = Nothing
        con.Close
        Set con = Nothing
    End If
  End Sub