Getting Error

[raj08536]

Private Sub Command11_Click()

Dim rstPath As ADODB.Recordset
Dim ConnPath As ADODB.Connection

Set ConnPath = CurrentProject.Connection
Set rstPath = New ADODB.Recordset
Set rstPath = ConnPath.Execute("SELECT [tbl-Path].CurrentPath FROM [tbl-Path]")

rstPath("currentpath") = Me.Text14.Value
rstPath.AddNew

End Sub

I am getting error at rstPath("currentpath") = Me.Text14.Value. Please help me. I want that text14 value should replace "currentpath".

 

[raj08536]

Error is:

Current recordset does not support updating. This may be a limitation of provider, or of the selected locktype.