Dim path As String
path = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\db1.mdb"
Dim base As String = "provider=microsoft.jet.oledb.4.0;data source=" & path
If Connection.State = ConnectionState.Open Then
Exit Sub
End If
Connection.ConnectionString = base
Try
Connection.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try