主题：如何判断外部数据源是否能够连接

Dim cn As New  Data.Oledb.OledbConnection("连接字符串")
Try
    cn.open()
    cn.Close()
     Messagebox.show("通")
Catch ex As Exception
    Messagebox.show("不通")
End Try

呵呵，其实很多功能对老六来说，不是不行，而是在于他认为这个问题重不重要，或有没有时间去考虑这个问题，就如现在的‘仿古’菜单，以前老六也是死活都说做不了传统菜单，现在不是又可以了吗？所以很多问题，只要时机到了，自然就水到渠成地解决了。

你的问题和这个不一样的。