Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"If Connections.TryConnect(s) = False Then CloseSplashForm() ‘关闭启动封面
MessageBox.Show("数据源无法连通!")End If
加好友 
发短信
Post By：2011/10/17 21:41:00 [只看该作者]
