Item Cannot be found in the collection corresponding to the request SQL VBA
<p>I am trying to update a database through excel with the following code:</p>

<pre><code>Public Sub insertNew()

Sheets("Sheet1").Select


strDB = "i:\Profile\Desktop\DB\Database.accdb"


        Set cn = New ADODB.Connection

       cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &amp; strDB &amp; ";" &amp; "Jet OLEDB:Database Password=password;"


       Set rs = New ADODB.Recordset

      rs.Open "Project Manager", cn, adOpenKeyset, adLockOptimistic, adCmdTable

        r = 2 ' the start row in the worksheet

            Do While Len(Range("A" &amp; r).Formula) &gt; 0


                If Range("AD" &amp; r) = "Yes" Then

                   With rs
                   .AddNew 

                   'These fields are on the spreadsheet, transfer will be made to the database
                    .Fields("ID") = Range("A" &amp; r).Value
                    .Fields("Full Name") = Range("C" &amp; r).Value
                    .Fields("SOEID") = Range("B" &amp; r).Value
                    .Fields("SMT") = Range("D" &amp; r).Value
                    .Fields("Manager") = Range("E" &amp; r).Value


                    .Update 
                    End With
                End If

            r = r + 1 ' next row
        Loop
        rs.Close
        Set rs = Nothing

        cn.Close
End Sub
</code></pre>

<p>The error occurs at the following line:</p>

<blockquote>
  <p>.Fields("Full Name") = Range("C" &amp; r).Value</p>
</blockquote>

<p>If I comment that line out then the line below gives the same error message. All of these columns are in the table <code>Project Manager</code> and I have checked that they are not misspelled etc.</p>

<p>I have never seen this error message before so have no idea where to even begin trouble shooting it, so any help would be great.</p>