I am getting a '3251' error "Current Recordset does not support updating.
Whether you like it or not, moving your thread to the correct place (and explaining why) is helping you to use the forums better, to increase your chances of getting help. if not then feel free to ask questions, as that is what I come here for (and what the vast majority of my posts are about).
The purpose of this article is to assist the Visual Basic developer in choosing the proper cursor location, cursor type, and lock type to use when programming Visual Basic (or VB) applications that use My SQL as a back-end database through ADO and Connector/ODBC (My ODBC).
This article will assume that the reader is using the My SQL RDBMS, but should apply to developers using other database management systems.
The different types and locations will be discussed in further detail below.
Your choice of cursor type and cursor location will affect what you are able to do with the data you retrieve, and how changes made to the data by other users are reflected in your copy of the data. Connection object (the ADO object used to broker all data exchanges between the VB application and the My SQL server) has a property known as property can only be set while the connection is closed, and the property will be inherited by any recordset objects that access their data through the given connection object.
Close Set o ADO = Nothing After you have that working, drop the usage of a DSN and change the code to o ADO.I am trying to up date a record but get the following error. This may be a limitation of the provider, or of the selected locktype. EOF then 'Add hidden fields to be inserted into database Budgetedtotal = Request. Form("Budgetedtotal") 'Add hidden fields to be inserted into database rs("Budgetedtotal") = Budgetedtotal rs("Budgeteddress") = Budgetedtotal * .15 rs("Budgeted Musicians") = Budgetedtotal * .15 rs("Budgeted Flowers") = Budgetedtotal * .15 rs("Budgetedofficiant") = Budgetedtotal * .10 rs("Budgetedreceptionhall") = Budgetedtotal * .10 rs("Budgeteddinner") = Budgetedtotal * .30 rs("Budgetedcake") = Budgetedtotal * .10 rs.update Thanks again for all your help. Recordset error '800a0cb3' Current Recordset does not support updating.occuring error like "current recordset does not support updating. this may be a limitation of the provider" Dim cn As New ADODB. Recordset Dim db As Variant Dim str SQL As String Dim w Sheet Name As Variant db = "\SIMPLAN-SWATHI\Users\mgt\dbdata.accdb" //Network DB path cn.