vb.net - ADODB BC30526 Property 'Item' is 'ReadOnly'

Question

Why i am getting this error? Property 'Item' is 'ReadOnly' ive created this in my class, Please help me to configured this error. i found in the Internet about this Property 'Item' is 'ReadOnly' but i think were not the same question Property 'Item' is 'ReadOnly'

class

Public Function GetRecordDataSet(ByVal sStoreProcName As String, ByVal sParameterList As String) As ADODB.Recordset
        Dim cmd As New ADODB.Command
        Dim arrParameter, arrParamName
        Dim sParamName As String
        Dim sDataValue
        Dim lCtr As Long
        On Error GoTo errhandler

        GetRecordDataSet = New ADODB.Recordset
        cmd.ActiveConnection = con
        cmd.CommandTimeout = 1800
        cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
        cmd.CommandText = sStoreProcName
        If Not Trim(sParameterList) = "" Then
            arrParameter = Split(sParameterList, "|", , vbTextCompare)
            If UBound(arrParameter) >= 0 And IsArray(arrParameter) Then
                For lCtr = 0 To UBound(arrParameter)
                    arrParamName = Split(arrParameter(lCtr), "$", , vbTextCompare)
                    sParamName = arrParamName(0)
                    sDataValue = arrParamName(1)
                    cmd.Parameters.Item(sParamName) = sDataValue
                Next lCtr
            End If
        End If
        GetRecordDataSet = cmd.Execute
        cmd = Nothing
        Exit Function
errhandler:
        MessageBox.Show("Records Not Found!!!")
    End Function

form

Public Function Listdata()
        Dim username = txtbox_username.Text //value Client1
        Dim objDataInquiry As New clsDataQuery
        Dim objFunction As New clsFunction
        Dim rs As ADODB.Recordset
        Dim lCtr As Long
        'Dim xItem As ListItem
        Dim sParametList As String
        On Error GoTo errhndler
        lCtr = 0
        sParameterList = "@strUserName$" & username
        rs = objDataInquiry.GetRecordDataSet("GetRecordDataSet", sParameterList)
        Exit Function
errhndler:
        MessageBox.Show("Error found. Please try again. If error persists please contact the administrator.")
    End Function

question from:https://stackoverflow.com/questions/66057864/adodb-bc30526-property-item-is-readonly

Answer 1

Waitting for answers