VB 历遍某个文件夹,将该文件夹下的所有Access数据库名显示在Combox中

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查询语句.