diff --git a/ChangeLog b/ChangeLog
index 4198da26d6..461b907313 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Feb  1 15:09:16 2014  Masaki Suketa <masaki.suketa@nifty.ne.jp>
+
+	* ext/win32ole/win32ole.c (ole_typedesc2val): add VT_RECORD case.
+
 Sat Feb  1 06:38:51 2014  Zachary Scott  <e@zzak.io>
 
 	* lib/drb/drb.rb: [DOC] Add note about start_service for each process
diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c
index d26827917e..05b0a96ae4 100644
--- a/ext/win32ole/win32ole.c
+++ b/ext/win32ole/win32ole.c
@@ -143,7 +143,7 @@ const IID IID_IMultiLanguage2 = {0xDCCFC164, 0x2B38, 0x11d2, {0xB7, 0xEC, 0x00,
 
 #define WC2VSTR(x) ole_wc2vstr((x), TRUE)
 
-#define WIN32OLE_VERSION "1.5.5"
+#define WIN32OLE_VERSION "1.5.6"
 
 typedef HRESULT (STDAPICALLTYPE FNCOCREATEINSTANCEEX)
     (REFCLSID, IUnknown*, DWORD, COSERVERINFO*, DWORD, MULTI_QI*);
@@ -4731,6 +4731,9 @@ ole_typedesc2val(ITypeInfo *pTypeInfo, TYPEDESC *pTypeDesc, VALUE typedetails)
     case VT_LPSTR:
         typestr = rb_str_new2("LPSTR");
         break;
+    case VT_RECORD:
+        typestr = rb_str_new2("RECORD");
+        break;
     default:
         typestr = rb_str_new2("Unknown Type ");
         rb_str_concat(typestr, rb_fix2str(INT2FIX(pTypeDesc->vt), 10));