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 SelectString  As String ="SELECT VideosammlungID,Filmtitel," & _
          "Nr,Discs FROM Videosammlung"
        Dim myAdapter As OleDbDataAdapter = New OleDbDataAdapter(SelectString, _
        myconnection)
        Dim myDataSet As DataSet = New DataSet
        myAdapter.Fill(myDataSet)
        ListBox1.Items.Clear()
 
 
        'ListBox1.Items.Add(myDataSet.Tables(0).Rows(0).Item(1).ToString())
 
        ' und niemals das dispose vergessen
        myAdapter.Dispose()
        myconnection.Dispose()
 
    End Sub