Dim ErrMsg As String
Dim Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"
If Connections.TryConnect(Conn,ErrMsg) = False Then
MessageBox.Show("数据源无法连通,原因:" & ErrMsg)
Else
MessageBox.Show("数据源可以连通!")
End If
用这个代码连接300多个数据库,进行数据查询,查询之后,连接如何关闭? 删除就可以了? Delete 删除指定名称的数据源。