db = mnuSystemName.Text


  App.IATrackDB.SQLExecute "create table "+ db +" (SystemName varchar, AssignedIAControl varchar,Implementation varchar, ResponsibleEntity varchar, Resources varchar, EstCompletionDate varchar,DateStarted varchar, PackageID varchar, POC varchar, ComponentName varchar)"

       ' Create a new DataTable.
        Dim dadapter As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=iatrack.mdb")
        Dim table As DataTable = New DataTable("DPackages")

        ' Declare variables for DataColumn and DataRow objects.
        Dim column As DataColumn
        Dim row As DataRow

        ' Create new DataColumn, set DataType, ColumnName 
        ' and add to DataTable.    
        column = New DataColumn()
        column.DataType = System.Type.GetType("System.Int32")
        column.ColumnName = "id"
        column.ReadOnly = True
        column.Unique = True

        ' Add the Column to the DataColumnCollection.
        table.Columns.Add(column)

        ' Create second column.
        column = New DataColumn()
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "PackageID"
        column.AutoIncrement = False
        column.Caption = "PackageID"
        column.ReadOnly = False
        column.Unique = False

        ' Add the column to the table.
        table.Columns.Add(column)

        ' Make the ID column the primary key column.
        Dim PrimaryKeyColumns(0) As DataColumn
        PrimaryKeyColumns(0) = table.Columns("id")
        table.PrimaryKey = PrimaryKeyColumns

        ' Instantiate the DataSet variable.
        DataSet = New DataSet() Error on line

        ' Add the new DataTable to the DataSet.
        DataSet.Tables.Add(table)Referance to non-shared member error