Sub test_datatypes()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT AnyText AS F1, Replace(AnyText, '.', '.' & Chr(13) & Chr(10)) AS F2," & _
        " Left(Replace(AnyText, '.', '.' & Chr(13) & Chr(10)), 65335) As F3 FROM YourTable")
    With rs...