怎样保存VB的combobox的list值？

form1 中，我在Text1里输入1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

点Command1，就写到Combo1的 下拉菜单里去了。
但退出form1后，再load form1, 下拉菜单里没有了1111111111。
请问怎样保存list值

---

加个 public collection 在 bas 里，记录 所有的 combo1的，
load form1 时，重新加。

---

你可以用數據表來存儲List值，當Load時，從數據表加載List內容。

---

你必須在窗體關閉時，把Combo的List項存儲下來，你可以存儲到數據表，也可以存放到文件中，然後在窗體加載時，再從存儲的地方加載這些List項。

---

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1

'D在这里再增加代码保存str1至文件中,下次加载窗体时,再从文件中读出值增加到combo1中

End Sub

---

写到数据库里，每次从数据库里读

    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database