access组合框行来源加载txt文本的数据

在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

获取效果如图：