Dim connString As String
        OpenFileDialog1.ShowDialog()
 
        Dim Test = OpenFileDialog1.FileName
        connString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Test
        Dim Conn As OleDbConnection = New OleDbConnection(connString)
        Conn.Open()
 
        Dim SQL As String = " Select * from Videoliste"
        Dim Cmd As OleDbCommand = New OleDbCommand(SQL, Conn)
        Dim dr As OleDbDataReader = Cmd.ExecuteReader( _
          CommandBehavior.CloseConnection)
        MsgBox(dr("Nr"))