Private OleDbConnection1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        ds.Clear()
        Dim s As String = "SELECT id, Nome_Movies FROM Movies"
        Me.OleDbConnection1.Open()
        Dim adapt As New OleDb.OleDbDataAdapter(s, Me.OleDbConnection1)
        adapt.Fill(ds, "Movies")
        Me.Listfilm.ValueMember = "id"
        Me.Listfilm.DisplayMember = "Nome_Movies"
        Me.Listfilm.DataSource = ds.Tables("Movies")
        Me.OleDbConnection1.Close()
        adapt.Dispose()
        ds.Dispose()
    End Sub