在access数据库中，我们不仅可以读取access创建的数据表上的数据，还是能读取TXT文本上的数据
如创建一个1.TXT的文本文件，里面填写几个值，用分号隔开
在窗体的加载事件中添加以下代码，主要是通过创建FileSystemObject对象，把TXT文本的数据作为组合框的行来源，组合框的行来源类型设置为“值列表”
Dim ObjFile As Object
Dim myFile As Object
Set ObjFile = CreateObject("Scripting.FileSystemObject")
Set myFile = ObjFile.OpenTextFile(CurrentProject.Path & "\1.txt", 1)
txt1.RowSourceType = "Value List"
txt1.RowSource = myFile.ReadLine '赋值到组合框
myFile.Close
Set ObjFile = Nothing
Set myFile = Nothing获取效果如图：
