的确是用不起,所以问下三

你的combo1是控件数组……
把index的0去掉……

Private Sub Form_Load()
Open App.Path & "\url.dat" For Random As #1
Dim no As Integer, address As String
no = 1
Do While Not EOF(1)
Get #1, no, address
Combo1.AddItem = address
no = no + 1
Loop

Close #1
Open App.Path & "\url.dat" For Random As #1
Dim url As String
Get #1, 1, url
reclen = Len(url)
If reclen = 0 Then
reclen = 1
Else
reclen = reclen
End If
Close #1
End Sub

中的
Combo1.AddItem = address
改成
Combo1.AddItem (address)

中的
Combo1.AddItem = address
改成
Call Combo1.AddItem (address)

还是老问题,未找到方法或数据成员

If Text1.Text = "" Then
MsgBox "添加失败,请输入URL", vbOKOnly, "失败"
Else
Combo1.AddItem Text1.Text
Open App.Path & "\url.dat" For Random As #1
Dim N, no, i As Integer
no = 1
N = 1
For i = 1 To Combo1.ListCount
Put #1, no, List(N)
no = no + 1
N = N + 1
Next i
Close #1
End If

中的
Put #1, no, List(N)
改成
Put #1, no, Combo1.List(N)
我这里运行已经OK

Combo1.AddItem = address
还是这里...
找不到...

对你说什么呢
注意看你楼上回复第四行

好吧....改了还是没找到啊....
Call Combo1.AddItem(address)
依然....

实在看不下去……你确定你看了所有回复了麽？