请教一个关于多重选择List的问题

xnc_0014

版上各位老师好：
    学生在此求助一个问题，谢谢。
    附件中的窗体中包含一个选择的List（List1）和一个文本框（已选课程），List是多重选择的。我最初的本意是让同学选择课程后直接在List中保存，也就是说下次再打开窗口时，List中原来被选择的记录依然高亮显示。可是我参考了不少教程，都没有提到如何实现这个功能，不知是否能实现。现在我退而求其次，希望通过文本框过渡一下，将来在数据库运行时文本框是不可见的。我目前对确定按钮编程如下：
Private Sub Command3_Click()
Dim varItm As Variant
Dim Str As String
For Each varItm In List1.ItemsSelected
    Str = Str & List1.ItemData(varItm) & ","
Next varItm
Me!已选课程 = Left(Str, Len(Str) - 1)
End Sub
    这个方法使得List中的数据可以被保存到文本框中，例如保存为”语文,英语“格式。可是保存归保存，下次再打开数据库时，文本框的内容还在，但是依然不知道如何才能将文本框中的内容还原到List中。我希望能在打开时直接高亮选中List中的选中课程，如果不行的话，那么希望能够通过”还原“按钮实现。目前还原按钮中没有任何代码，因为我做不来。
    以上是我的想法，我最好是能够不通过文本框过渡，直接用List保存数据，如果不行，退一步使用文本框，希望再次打开数据库时直接高亮选择，如果还不行，那么再退一步，通过单击还原按钮实现，请各位老师帮帮我，谢谢。

Renco

即然这么问了。。就给你做一下。。呵。。

已经给你做好了几条记录，效果自已看一下吧

xnc_0014

学习了，谢谢老师