Read Write Permissions

Is there anything in the code below that would throw a Read/Write Permission error???


  rs2 = New ADODB.Recordset
                    rs2.Open("SELECT * FROM tblFTR_strSQL ORDER BY tblFTR_strSQL.FTRSQL_Seq;", appAcc, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
                    Do Until rs2.EOF
                        currstr = rs2.Fields("FTRSQL_Seq").Value
                        rst = New ADODB.Recordset
                        rst.Open(rs2.Fields("strSQL").Value, appAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
                        rs2.MoveNext()
                    Loop

rst.Open(strsql, libAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                        libAcc.Close()
                        strsql = "INSERT INTO [" & TblNm & "] IN '" & libpth & rs2.Fields("LibMdbNm").Value & DtStr & ".mdb' SELECT [" & TblNm & "].* FROM [" & TblNm & "];"
                        rst = New ADODB.Recordset
                        rst.Open(strsql, appAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                        strsql = "Delete * FROM [lib_Ind] WHERE [lib_Ind].FLNM=""" & rsFL.Fields("flnm").Value & """ and [lib_Ind].TblNM=""" & TblNm & """;"
                        libAcc.Open(libStr)
                        rst = New ADODB.Recordset
                        rst.Open(strsql, libAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                        libAcc.Close()