i need urgent help with asp.net?

[Naomi]

i have a problem getting my asp.net codes to work, it keeps giving me this type of error
BC30188: Declaration expected

i have attached the codes. If anyone could help i would be very happy


Dim objDT as System.Data.DataTable
Dim objDR as System.Data.Datarow


Function MyQueryMethod(ByVal oRIGIN As String) As System.Data.IDataReader
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=spices1.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "SELECT [Chinese].* FROM [Chinese] WHERE ([Chinese].[ORIGIN] = @ORIGIN)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_oRIGIN As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_oRIGIN.ParameterName = "@ORIGIN"
dbParam_oRIGIN.Value = oRIGIN
dbParam_oRIGIN.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_oRIGIN)

dbConnection.Open
Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Return dataReader
End Function

Private Sub Page_Load(s as object, e as EventArgs)
If Not IsPostBack() Then
makeCart()
End If
End Sub

Dim whatsit = Session("origin")

DataList1.DataSource()=GetSpice("whatsit").............THE ERROR MESSAGE KEEPS POINTING HERE
DataList1.DataBind
end if

Dim s_count as Integer=Session.Count
if (s_count<1) then
makeCart()
end if

end Sub


Function makeCart()
'create instance of table & specify columns
objDT = New System.Data.DataTable("basket")

objDT.Columns.Add("ID", GetType(Integer))
objDT.Columns("ID").AutoIncrement = True
objDT.Columns("ID").AutoIncrementSeed = 1

'add the remaining columns
objDT.Columns.Add("SPICEID",GetType(String))
objDT.Columns.Add("SPICE_NAME",GetType(String))
objDT.Columns.Add("ORIGIN",GetType(String))
objDT.Columns.Add("PRICE",GetType(Decimal))

'put the datatable into the session (memory storage on the server)
Session("basket") = objDT
End Function


Sub DataList1_ItemCommand(s As Object, e As DataListCommandEventArgs) Handles DataList1.ItemCommand

If e.CommandName = "basket" Then
Dim show as Label = e.Item.FindControl(“spiceid_label")
Dim show2 as Label = e.Item.FindControl(“spicename_label")
Dim show3 as Label = e.Item.FindControl(“spiceorigin_label")
Dim show4 as Label = e.Item.FindControl(“spiceprice_label")
End If
Dim blnMatch As Boolean = False

'retrieve cart from memory
objDT=Session("basket")

'To see if to update quantity if product is in the datatable
For Each objDR In objDT.Rows
If objDT("basket") = spice_id Then
'if it is in the table just update the quantity
objDR("Quantity") += txtQuantity.Text
blnMatch = True
Exit For
End If
Next

If Not blnMatch Then
objDR=objDT.NewRow
objDR("SPICEID")=show.Text
objDR("SPICE_NAME")=show2.Text
objDR("ORIGIN")=show3.Text
objDR("PRICE")=Decimal.Parse(show4.Text)
objDT.Rows.Add(objDR)
End If

Session("basket")=objDT

End Sub


Sub btncart_Click(sender As Object, e As EventArgs)
Response.Redirect("viewbasket2.aspx")
End If
End Sub