VB 专家系统 的一个小疑点 。

VB 专家系统 的一个小问题 。。
症状1  
症状2 药品
症状3 按钮  

症状4  

用checkbox选择症状 点击按钮在右侧列出 对症的药品 （每一种症状对应1到n钟药品）用listbox来放药品的

要想对 药品进行 增加 删除 或 修改 该怎么 操作？

比方新增一种药品 XXX 选择XXX所适应的症状 然后添加成功以后 

再选症状时 可以出现新增的药品了 


求教

[解决办法]
用ACCESS数据库或ini文件保存数据，修改后重新载入。

[解决办法]
简单举个例子吧：

Option Explicit

'下例只简单举例单个症状，多个症状参照修改或者使用其他形式

Private bLoad As Boolean
Private Conn As ADODB.Connection

Private Sub cmdAdd_Click() 'text1中写入药品，再添加到list1药品列表
List1.AddItem Trim(Text1.Text)
End Sub

Private Sub cmdAmend_Click() '修改text1中的内容后，将修改值放回list1药品列表
If List1.ListIndex < 0 Then Exit Sub
List1.List(List1.ListIndex) = Trim(Text1.Text)
End Sub

Private Sub cmdDel_Click() '删除药品列表list1中的选定药品，此只举例单选
If List1.ListIndex < 0 Then Exit Sub
List1.RemoveItem List1.ListIndex
End Sub

Private Sub cmdList_Click() '从数据库中枚举症状1药品
Call ListMedicine
End Sub

Private Sub ListMedicine()
Dim rs As ADODB.Recordset

Set rs = Conn.Execute("select 药品 from 症状关联表 where 症状='症状1'")
List1.Clear
rs.MoveFirst
While Not rs.EOF
List1.AddItem Format(rs.Fields("药品").Value)
rs.MoveNext
Wend
rs.Close
End Sub

Private Sub cmdSave2DB_Click() '保存数据到数据库
Dim SQL As String
Dim i As Long

SQL = "insert into 症状关联表(症状,药品) values('症状1','"
For i = 0 To List1.ListCount - 1
Conn.Execute SQL & Trim(List1.List(i)) & "')"
Next i
End Sub

Private Sub Form_Load()
Conn.ConnectionString = "..."
Conn.CommandTimeout = 10
Conn.Open

bLoad = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Conn.Close
Set Conn = Nothing
End Sub

Private Sub List1_Click() '点击药品列表框的内容
Text1.Text = Trim(List1.List(List1.ListIndex))
End Sub