Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim myconnection As New OleDbConnection( _
                "Provider=microsoft.jet.oledb.4.0;" & _
                "Data source=C:\Daten\VBNET\Test.mdb")
        Dim mySelectCmd As New OleDbCommand("SELECT VideosammlungID,Filmtitel," & _
          "" & "Nr,Discs " + "FROM Videosammlung")
        mySelectCmd.Connection = myconnection
        Dim myAdapter As OleDbDataAdapter = New OleDbDataAdapter(mySelectCmd)
        Dim myDataSet As DataSet = New DataSet
        myAdapter.Fill(myDataSet)
        ListBox1.Items.Clear()
 
        'ListBox1.Items.Add(myDataSet.Tables(0).Rows(0).Item(1))
 
    End Sub