multiple-step OLE DB operation generated errors. check each OLE DB status value, if avail

I am getting error --> multiple-step OLE DB operation generated errors.
check each OLE DB status value, if available.No work was done
Please help me out

 Sub updatedata()

Dim dbconn As New ADODB.Connection
Dim stDB, strConn

Dim totColumns, totRows, i, j, BMS_id, UpdateprBatchName
Dim prBatchName, prTableQry, inTableQry, prTableQry1, dbQry
Dim rs As New ADODB.Recordset

 'Path to the database.
    stDB = "mysql32"

     'Create the connectionstring.
    strConn = "Driver=MySQL ODBC 5.2 Unicode Driver;" _
    & "Data Source=" & stDB & ";"

Sheet1.Activate
'prBatchName = "tblprod_agr_007"

totColumns = ActiveSheet.Cells(2, 1).CurrentRegion.Columns.Count
totRows = ActiveSheet.Cells(3, 1).CurrentRegion.Rows.Count

 'prBatchName = ActiveSheet.Cells(3, totColumns + 1).Values
dbconn.Open strConn
rs.CursorLocation = adUseServer
rs.Open "select * from " & InputBox("Update Data"), dbconn, adOpenStatic, adLockOptimistic
    For j = 3 To totRows + 1
       BMS_id = ActiveSheet.Cells(j, 1)
        rs.Find "BMS_ID=" & BMS_id
        
        For i = 3 To totColumns
        rs(ActiveSheet.Cells(2, i).Value) = ActiveSheet.Cells(j, i)     ---------> i getting error here on this Line
        Next
        rs.Update
          Next
rs.Close
dbconn.Close
MsgBox "Data updated sucessfully"
End Sub

Hi Baig123,

Try this,

For i = 3 To totColumns
        rs(ActiveSheet.Cells(2, i).Value) = ActiveSheet.Cells(j, i)    
        rs.Update
Next