Dim pfad As String
    Dim objCon As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & pfad & ";") 'Jet 
    ' OLEDB:database Password=filmz;")
 
 Private Sub MovieBusterDatenbankAuswählenToolStripMenuItem_Click(ByVal sender _
   As System.Object, ByVal e As System.EventArgs) Handles _
   MovieBusterDatenbankAuswählenToolStripMenuItem.Click
        Dim myopenFileDialogfront As New OpenFileDialog
        myopenFileDialogfront.Filter = "Datenbank (*.mdb)|*.mdb"
        myopenFileDialogfront.Title = "MovieBuster Datenbank auswählen"
        myopenFileDialogfront.RestoreDirectory = True
        If myopenFileDialogfront.ShowDialog() = Windows.Forms.DialogResult.OK _
          Then
            pfad = myopenFileDialogfront.FileName
            MsgBox(pfad)
            Application.DoEvents()
            objDVa = Nothing
            objDSa = New DataSet()
            objCon.Open()
            objDAa = New OleDb.OleDbDataAdapter("SELECT * FROM Daten", objCon)
            objDAa.Fill(objDSa, "Daten")
            objDVa = New DataView(objDSa.Tables("Daten"))
            objDVa.Sort = "Filmname"
            With Me
                .ListBox1.DataSource = objDVa
                .ListBox1.DisplayMember = "Filmname"
            End With
            objCon.Close()
        Else
 
 
        End If
    End Sub