System.InvalidCastException: Operator ' =' is not defined for type 'Byte()' and type 'Integer'.

Question

I'm getting the following error
System.InvalidCastException: Operator '>=' is not defined for type 'Byte()' and type 'Integer'.
   at Microsoft.VisualBasic.CompilerServices.Operators.InvokeObjectUserDefinedOperator(UserDefinedOperator Op, Object[] Arguments)
   at Microsoft.VisualBasic.CompilerServices.Operators.InvokeUserDefinedOperator(UserDefinedOperator Op, Object[] Arguments)
   at Microsoft.VisualBasic.CompilerServices.Operators.CompareObjectGreaterEqual(Object Left, Object Right, Boolean TextCompare)
   at Customer_Fee_Calculator.Form1.GetCost2(Object dimension) in C:\Users\Chris\Documents\Visual Studio 2013\Projects\Customer Fee Calculator\Customer Fee Calculator\Form1.vb:line 259
   at Customer_Fee_Calculator.Form1.CustomerSelect_SelectedIndexChanged(Object sender, EventArgs e) in C:\Users\Chris\Documents\Visual Studio 2013\Projects\Customer Fee Calculator\Customer Fee Calculator\Form1.vb:line 72
            Dim inotes = rs1("INOTES").Value
  (Line 72)          If inotes.Length > 1 Then
                cost = GetCost2(rs1("INOTES").Value)(0)
                desc = GetCost2(rs1("INOTES").Value)(1)
            Else
                PkgType = CInt(rs1("PKGTYPE").Value)
                cost = GetCost(PkgType)(0)
                desc = GetCost(PkgType)(1)
            End If
 Function GetCost2(dimension)
        Dim tempSql1, rs1
        Dim MyResult As New ArrayList
        Select Case dimension
(line 259)            Case 1 To 24
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 13"
            Case 25 To 43
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 14"
            Case 44 To 71
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 16"
            Case 72 To 120
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 17"
            Case 121 To 499
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 18"
            Case 500
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 19"
            Case Else
                tempSql1 = "SELECT * FROM PRODUCT WHERE PRODUCTID = 14"
        End Select
        rs1 = dbconnect(tempSql1, 1)
        MyResult.Add(rs1("RETAIL1").Value)
        MyResult.Add(rs1("DESCRIPTION").Value)
        MyResult.Add(rs1("PRODUCTID").Value)
        rs1 = Nothing
        tempSql1 = Nothing
        Return MyResult
    End Function

Answer 1

Chris,
I'm not a database guy - so in many ways, I'm not really qualified to answer this, but I'll make a suggestion anyway:
At the very top of your code, put the following:
Option Strict On
Option Explicit On
Option Infer Off
With strict on and infer off, it will force you declare types - which I see missing in many places in the code.
It's entirely possible that by you then going through and fixing those issues, you'll have corrected the problem.
I don't know that, but it's possible -- and it should be done this way anyway, so there's certainly no harm to be done; in fact you'll actually speed up the program to a small degree because objects don't have to be inferred for the type that they actually
are.
***** EDIT *****
Also this: DON'T declare any of the types simply as "Object"; that's just trading off late binding for boxing, so you haven't really done much good. Declare them each as their correct actual type.
Still lost in code, just at a little higher level.