New Collection() Error.

Grrr...Just got redirected off this page and have to run to my other job, so everything I typed got wiped out. But basically, if anyone sees an error in this I'd appreciate your help, for some reason its finding Collection() as undefined.

Code:
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data
Imports System.Data.OleDb

Public Class DataList
  Inherits Page

Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Dim colFruit As New Collection()
  colFruit.Add("Kiwi")
  colFruit.Add("Pear")
  colFruit.Add("Mango")
  colFruit.Add("Blueberry")
  colFruit.Add("Apricot")
  colFruit.Add("Banana")
  colFruit.Add("Peach")
  colFruit.Add("Plum")
  lstItems.DataSource=colFruit
  Me.DataBind()
  ' Could use lstItems.DataBind() to bind just the list box.
End Sub

End Class

Error:
Compiler Error Message: BC30002: Type 'Collection' is not defined.

Source Error:

Line 11: Line 12: Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load Line 13: Dim colFruit As New Collection() Line 14: colFruit.Add("Kiwi") Line 15: colFruit.Add("Pear")

But you don't need parenthesis, adding parenthesis makes it an array of collections, from the look of your code you only want 1 collection so it should be:

Dim colFruit As New Collection

 

The code is fine,  you must have the problem somewhere else, that it's throwing it there

Well, it ended up there were a number of errors in my code. Here is the code after repair for anyone who is interested. There were also two errors in the call for the code-behind. :-P Thanks for your help.
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data
Imports System.Data.OleDb

Public Class Database
    Inherits Page
    Protected lstUser As ListBox ' Was not set previously.
Private Sub Page_Load (sender As Object, e as EventArgs) Handles MyBase.Load ' Was mistitled Private Class.
    ' Define a DataSet with a single DataTable.
    Dim dsInternal as New DataSet()
    dsInternal.Tables.Add("Users")

    ' Define two columns for this table.
    dsInternal.Tables("Users").Columns.Add("Name")
    dsInternal.Tables("Users").Columns.Add("Country")

    ' Add some actual information into the table.
    Dim rowNew as DataRow
    rowNew = dsInternal.Tables("Users").NewRow()
    rowNew("Name") = "John"
    rowNew("Country") = "Uganda"
    dsInternal.Tables("Users").Rows.Add(rowNew)

    rowNew = dsInternal.Tables("Users").NewRow()
    rowNew("Name") = "Samantha"
    rowNew("Country") = "Belgium"
    dsInternal.Tables("Users").Rows.Add(rowNew)

    rowNew = dsInternal.Tables("Users").NewRow()
    rowNew("Name") = "Rico"
    rowNew("Country") = "Japan"
    dsInternal.Tables("Users").Rows.Add(rowNew) ' Was missing closing ' quotation mark.

    ' Define the binding.
    lstUser.DataSource = dsInternal.Tables("Users")
    lstUser.DataTextField = "Name"

    Me.DataBind()
End Sub

End Class