在VB（Visual Basic）中提升价目表，可以通过以下步骤实现：
定义商品类
创建一个商品类（Commodity），包含商品名称（comname）和价格（price）两个属性。
创建商品数组
在程序中创建一个商品数组（commo），用于存储现有的商品信息。
插入新商品
编写一个插入函数（InsCommo），用于将新商品插入到商品数组的指定位置。
```vb
' 定义商品类
Public Class commodity
Public comname As String
Public price As Currency
End Class
' 创建商品数组
Public commo（） As commodity
' 插入新商品的函数
Public Sub InsCommo（t As commodity, p As Integer）
Dim L, H, i As Integer
L = LBound（commo（））
H = UBound（commo（））
H = H + 1
If p > （H - L） Then p = H - L + 1 ' 插入位置超过以前的总记录数，就插入到最后一条记录后
ReDim Preserve commo（L To H）
For i = H To L + p Step -1
commo（i）.comname = commo（i - 1）.comname
commo（i）.price = commo（i - 1）.price
Next i
commo（L + p - 1）.comname = t.comname
commo（L + p - 1）.price = t.price
End Sub
' 示例使用
Sub Main（）
' 初始化商品数组
ReDim commo（0 To 3）
commo（0）.comname = "电冰箱"
commo（0）.price = 2340
commo（1）.comname = "电视机"
commo（1）.price = 5300
commo（2）.comname = "洗衣机"
commo（2）.price = 3320
commo（3）.comname = "自行车"
commo（3）.price = 890
' 插入新商品
Dim newItem As commodity
newItem.comname = "空调"
newItem.price = 4500
InsCommo newItem, 2 ' 插入到第三个位置
' 输出更新后的商品数组
For i = LBound（commo） To UBound（commo）
Debug.Print commo（i）.comname & " - " & commo（i）.price
Next i
End Sub
```
建议
数据持久化：如果需要长期保存价目表，可以考虑将数据存储在文件或数据库中，而不是仅仅存储在内存中。
错误处理：在实际应用中，应该添加适当的错误处理机制，以确保程序的健壮性。
用户界面：如果需要从用户界面添加或修改商品信息，可以设计一个简单的用户界面（UI）来实现这一功能。
通过以上步骤和示例代码，你可以在VB中有效地提升和管理价目表。