Dim conn As OleDbConnection = New OleDbConnection(ConfigurationManager.ConnectionStrings("database").ConnectionString)
        Dim cmd As OleDbCommand = conn.CreateCommand
        cmd.CommandText = "select * from tabella where .."
        cmd.Parameters.Add(...)
        Dim reader As OleDbDataReader = cmd.ExecuteReader()

        While reader.Read
            ....
        End While