For Each cn As Connection In Connections if cn.Name = str1 Exit For
Return
end if
Next
Connections.Add(str1,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str2 & ";Persist Security Info=False")
加好友 
发短信
Post By：2012/10/10 11:49:00 [显示全部帖子]
