Private Sub Form_Load()
DealFolder "C:\Documents and Settings\user\桌面"
End Sub
'----------------------------------'
Private Sub DealFolder(Folder As String, Optional File As String = "*.mdb")
Dim t As String
t = Dir(Folder & IIf(Asc(Right(Folder, 1)) = 92, "", "\") & File)
Combo1.Clear
While Len(t)
Combo1.AddItem t
t = Dir
Wend
End Sub
问题一我做好了,接下来链接怎么连 要自动循环 Combo1.AddItem 链接数据库 每链接个做SQL查询语句.