getting an error called Object required

here i am trying to list the batch names of min but showing an error

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 " & ListBox1.Text("tblprod_agr_001","tblprod_agr_002"), dbconn, adOpenStatic,--     adLockOptimistic     ------------------------------------------------------->getting error rs.open line here
    For j = 3 To totRows + 1
       BMS_id = ActiveSheet.Cells(j, 1)
        rs.Find "BMS_ID='" & BMS_id & "'"
        
        For i = 2 To totColumns
        rs(ActiveSheet.Cells(2, i).Value) = ActiveSheet.Cells(j, i)
        Next
        rs.Update
          Next
rs.Close
dbconn.Close
MsgBox "Data updated sucessfully"