Update record error 3251 Microsoft.ACE.OLEDB.12.0

[Beengie]

Hello,
I searched for the solution, but I couldn't find a clear answer.

I am trying to update a record using Microsoft.ACE.OLEDB.12.0 with a MSAccess 2007 DB. I am getting a '3251' error "Current Recordset does not support updating. This may be a limitaion of the provider, or the selected locktype."

I have researched the locktype enum and the provider information. I am new to using Access 2007 for the DB. Previously I used Access 2000.

Here is the code in question:

Set cn = New ADODB.Connection
            cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source=" & App.Path & "\BeengData.accdb"
cn.Open

rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
rs.AddNew

rs.Fields("ScheduleName").Value = txtScheduleName.Text
rs.Update