Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long
 
Private Sub Command1_Click()
  ShellExecute Me.hwnd, "open", "Deine.udl", vbNullString, App.Path, 1
End Sub