主题：用新的语句替换外部数据源连接如何实现

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
    MessageBox.Show("数据源无法连通!")
else

   Connections.Delete( "test")

   Connections.Add("test", s )

End If

请问有更好,更简单的方法吗?能直接改写吗?