Visual Basic

Imports System.Data.OleDb<br />
Public Class Prices<br />
    <br />
    Public Shared ReadOnly Property Price(ByVal Name As String, ByVal Size As String) As Double<br />
        Get<br />
            Dim connString As String = "Data Source=""C:\Documents and Settings\user\" & _<br />
            "My Documents\Visual Studio Projects\Quiznos Register\Assoc. Files\Quiznos.mdb"";" & _<<br />
            "Jet OLEDB:Engine Type=5;" & _<br />
            "Provider=""Microsoft.Jet.OLEDB.4.0"";" & _<br />
            "persist security info=False;"<br />
            Dim conn As New OleDbConnection(connString)<br />
            Dim cmdGetPrice As New OleDbCommand("SELECT Products.Price FROM Products Products WHERE" & _<br />
            "(Products.Name='Classic Italian') AND (Products.Size='Small')", conn)<br />
<br />
            Try<br />
                If conn.State <> ConnectionState.Open Then<br />
                    conn.Open()<br />
                End If<br />
            Catch ex As OleDbException<br />
                MsgBox(ae.Message)<br />
            End Try<br />
<br />
            Select Case Name<br />
                Case "Classic Italian"<br />
                    Select Case Size<br />
                        Case "Small"<br />
                            Price = cmdGetPrice.ExecuteNonQuery    '<----- This is where it gives me the error.<br />
			'other cases for other sizes<br />
                    End Select<br />
            ' other cases<br />
            End Select<br />
            Return Price<br />
<br />
            conn.Close()<br />
<br />
        End Get<br />
    End Property<br />
End Class