Private Sub OpenDSLFile(path As String)
Shell "Rundll32.exe C:\PROGRA~1\COMMON~1\System\OLEDB~1\oledb32.dll,OpenDSLFile " & path
End Sub

Private Sub Connect(CN As ADODB.Connection, path As String)
CN.Open "File Name=" & path
End Sub