Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\base1.mdb;Persist Security Info=True"
Dim connection As OleDbConnection = New OleDbConnection(connectionString)
Dim strquery As String = "SELECT PathFerro FROM Ferro"
Dim dataset As New DataSet()
Dim AppAdapter As New OleDbDataAdapter(strquery, connection)
AppAdapter.Fill(dataset)
DataList2.DataSource = dataset
DataList2.DataBind()