VB6中Combo控件下拉列表显示.txt文件下的数据(按行显示出来)

Line Input #1, s '读到变量S里
Combo1.AddItem s1　　　'从变量S1里取出

你说取得到东西吗？

养成先声明变量，后使用变量的习惯，就不会给查找错误带来困难了。
使用
Option Explicit

Private Sub Form_Load()
Dim sfile As String
sfile = "C:\Documents and Settings\Administrator\桌面\yqh.txt"
Dim ifile As Integer
ifile = FreeFile
Open sfile For Input As #ifile
Do While Not EOF(ifile)
Line Input #1, s
Combo1.AddItem s1
Loop
Close #file
End Sub

你再试试，就很容易找错误原因了。

Line Input #1, s这句
错了

你上面定义文件号为ifile
所以正确为

Line Input # ifile,s

Close #file

这个删掉，再检查一下
"C:\Documents and Settings\Administrator\桌面\yqh.txt"

这个对不对