Great DB With Table Full size windows APP

Sub cmbType_SelectionChanged (Index, Value)
Select index
   Case 0
      label6.Text="Name"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="Phone"
      label10.Text="Notes"
      label13.Text="Email"
      label14.Text="WWW"
   Case 1
      label6.Text="Business"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="hours"
      label10.Text="Stock"
      label13.Text="Shipper"
      label14.Text="WWW"
   'table1.AddCol(cString,"Business",175)
   'table1.AddCol(cString,"Address",175)
   'table1.AddCol(cstring,"City State") 'Account Number must be unique.
   'table1.AddCol(cString,"Email",175)
   'table1.AddCol(cString,"Remarks",175)
   'table1.AddCol(cString,"WWW",175)
   'table1.AddCol(cString,"Work",175)
   'table1.AddCol(cstring,"Type",175)
   Case 2
      label6.Text="Retailer"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="WWW"
      label10.Text="Sale Items"
      label13.Text="Hours"
      label14.Text="Stock"
   Case 3
      label6.Text="Shipper"
      label7.Text="Address"
      label8.Text="City State"
      label9.Text="Phone"
      label10.Text="Frieght"
      label13.Text="Type"
      label14.Text="Hours"
   Case 4
      label6.Text="URL"
      label7.Text="Website"
      label8.Text="Type"
      label9.Text="Email"
      label10.Text="Remarks"
      label13.Text="Service"
      label14.Text="Active"
   Case 5
      label6.Text="Name"
      label7.Text="Email"
      label8.Text="Phone"
      label9.Text="Data"
      label10.Text="Remarks"
      label13.Text="Sex"
      label14.Text="WWW"
   Case 6
      label6.Text="Order"
      label7.Text="Amount"
      label8.Text="Price"
      label9.Text="Shipped"
      label10.Text="Stock"
      label13.Text="Company"
      label14.Text="Shipper"
   Case 7
      label6.Text="Stock"
      label7.Text="Item"
      label8.Text="Amount"
      label9.Text="Cost"
      label10.Text="Remarks"
      label13.Text="Discount"
      label14.Text="Suplier"
   Case 8
      label6.Text="Name"
      label7.Text="Bank"
      label8.Text="Amount"
      label9.Text="Payment"
      label10.Text="Balance"
      label13.Text="Due"
      label14.Text="Check"
End Select
End Sub

Sub Button17_Click 'rev
Cmbtype.SelectedIndex = typ - 1
typ = typ + 1
End Sub