[CODE]    

            Dim MyConn As New ADODB.Connection
            Dim RS As New ADODB.Recordset
            Dim DbfPath As String = My.Application.Info.DirectoryPath & "\Layers\"
            MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbfPath & ";Extended Properties=dBASE IV; User ID=Admin;Password="
            MyConn.Open()
            Dim sql As String = "SELECT NAME from Comuni"
            RS.Open(sql, MyConn)
            Do While Not RS.EOF
                Console.WriteLine(RS("NAME").Value)
                RS.MoveNext()
            Loop

[/CODE]