Dim cn As OleDb.OleDbConnection
        Dim p As Process
        Dim sCon As String = "File Name = Connect.udl"
        Dim FileName As String = "Connect.udl"
        Dim FullPath As String = IO.Directory.GetCurrentDirectory + "\" + _
          FileName
        Try
            If Not IO.File.Exists(FullPath) Then IO.File.Create(FullPath).Close( _
              )
            p = Process.Start(FullPath)
            p.WaitForExit()
            cn = New OleDb.OleDbConnection(sCon)
            cn.Open()
            MessageBox.Show("Verbindung erfolgreich herstellt!")
            cn.Close()
        Catch ex As Exception
            MessageBox.Show("Fehler beim herstellen der Verbindung: " + _
              ControlChars.NewLine + ex.ToString)
        End Try