title: VBA code to update / create new record from Excel to Access
body: <p>I have been trying to look everywhere for an answer, but my low based skills in VBA is really not helping me to figure what I am trying to code.</p>
  
  <p>I have this code so far: </p>
  
  <pre><code>Sub ADOFromExcelToAccess()
  ' exports data from the active worksheet to a table in an Access database
  ' this procedure must be edited before use
  Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
  ' connect to the Access database
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " &amp; _
      "Data Source=\\GSS_Model_2.4.accdb;"
  ' open a recordset
  Set rs = New ADODB.Recordset
  rs.Open "Forecast_T", cn, adOpenKeyset, adLockOptimistic, adCmdTable
  ' all records in a table
  For i = 4 To 16
      x = 0
      Do While Len(Range("E" &amp; i).Offset(0, x).Formula) &gt; 0
  ' repeat until first empty cell in column A
          With rs
              .AddNew ' create a new record
              .Fields("Products") = Range("C" &amp; i).Value
              .Fields("Mapping") = Range("A1").Value
              .Fields("Region") = Range("B2").Value
              .Fields("ARPU") = Range("D" &amp; i).Value
              .Fields("Quarter_F") = Range("E3").Offset(0, x).Value
              .Fields("Year_F") = Range("E2").Offset(0, x).Value
              .Fields("Units_F") = Range("E" &amp; i).Offset(0, x).Value
              .Update
           ' stores the new record
      End With
      x = x + 1
      Loop
  Next i
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing
  End Sub
  </code></pre>
  
  <p>This code does exactly what I want thus far. I know want to add a piece that is going to check if the record exist based on 4 rules: Products, Region, Quarter_F and Year_F 
  If it matches these, it should update the other field (Units_F, ARPU). If not, it should run the code properly and create a new record.</p>
  
  <p>Your help will be very much appreciated, I am stucked here and do not see how to get out.</p>
  
  <p>Thank you</p>