ADO and Large Varchar truncated to 255 chars

Hi there, 

I am trying to retrieve data from an SQL Server 2000 db. The data is 
Varchar(4000).  Using the following VBA the data gets truncated to 255
chars. 
 How do I get data from large Varchar fields using ADO?

Many thanks

Tim


    Do Until rs.EOF
        i = 0
        For Each f In rs.Fields
            Debug.Print f.Value, Len(f.Value)
            .ActiveCell.Offset(lRow + 1, i) = f.Value
            i = i + 1
        Next f
        lRow = lRow + 1
        rs.MoveNext
    Loop