diff --git a/mssql-simple.cabal b/mssql-simple.cabal
--- a/mssql-simple.cabal
+++ b/mssql-simple.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 5b1dbc750ccae76bdbfbc855bb9838d50c4bae7e9c66c2033f3ff4430dd31cd8
+-- hash: 0a046467ca847fb66f304b9789fe93c53e9208d32c115d3936e2cc0d25de86fb
 
 name:           mssql-simple
-version:        0.6.0.1
+version:        0.6.0.2
 synopsis:       SQL Server client library implemented in Haskell
 description:    Please see the README on GitHub at <https://github.com/mitsuji/mssql-simple#readme>
 category:       Database
diff --git a/src/Database/MSSQLServer/Query/RpcQuerySet.hs b/src/Database/MSSQLServer/Query/RpcQuerySet.hs
--- a/src/Database/MSSQLServer/Query/RpcQuerySet.hs
+++ b/src/Database/MSSQLServer/Query/RpcQuerySet.hs
@@ -269,39 +269,39 @@
 numericVal name p (Right f) = RpcParamVal name (TINumericN p (decimalScale f)) (Just f)
 
 charVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)
-charVal name Nothing = RpcParamVal name (TIBigChar 0xffff (Collation 0x00000000 0x00)) Nothing
+charVal name Nothing = RpcParamVal name (TIBigChar 0 (Collation 0x00000000 0x00)) Nothing
 charVal name (Just bs) = RpcParamVal name (TIBigChar (fromIntegral $ B.length bs) (Collation 0x00000000 0x00)) (Just bs)
 
 varcharVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)
-varcharVal name Nothing = RpcParamVal name (TIBigVarChar 0xffff (Collation 0x00000000 0x00)) Nothing
+varcharVal name Nothing = RpcParamVal name (TIBigVarChar 0 (Collation 0x00000000 0x00)) Nothing
 varcharVal name (Just bs) = RpcParamVal name (TIBigVarChar (fromIntegral $ B.length bs) (Collation 0x00000000 0x00)) (Just bs)
 
 textVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)
-textVal name Nothing = RpcParamVal name (TIText 0xffffffff (Collation 0x00000000 0x00)) Nothing
+textVal name Nothing = RpcParamVal name (TIText 0 (Collation 0x00000000 0x00)) Nothing
 textVal name (Just bs) = RpcParamVal name (TIText (fromIntegral $ B.length bs) (Collation 0x00000000 0x00)) (Just bs)
 
 ncharVal :: RpcParamName -> (Maybe T.Text) -> RpcParam (Maybe T.Text)
-ncharVal name Nothing = RpcParamVal name (TINChar 0xffff (Collation 0x00000000 0x00)) Nothing
+ncharVal name Nothing = RpcParamVal name (TINChar 0 (Collation 0x00000000 0x00)) Nothing
 ncharVal name (Just ts) = RpcParamVal name (TINChar (fromIntegral $ (T.length ts) * 2) (Collation 0x00000000 0x00)) (Just ts)
 
 nvarcharVal :: RpcParamName -> (Maybe T.Text) -> RpcParam (Maybe T.Text)
-nvarcharVal name Nothing = RpcParamVal name (TINVarChar 0xffff (Collation 0x00000000 0x00)) Nothing
+nvarcharVal name Nothing = RpcParamVal name (TINVarChar 0 (Collation 0x00000000 0x00)) Nothing
 nvarcharVal name (Just ts) = RpcParamVal name (TINVarChar (fromIntegral $ (T.length ts) * 2) (Collation 0x00000000 0x00)) (Just ts)
 
 ntextVal :: RpcParamName -> (Maybe T.Text) -> RpcParam (Maybe T.Text)
-ntextVal name Nothing = RpcParamVal name (TINText 0xffffffff (Collation 0x00000000 0x00)) Nothing
+ntextVal name Nothing = RpcParamVal name (TINText 0 (Collation 0x00000000 0x00)) Nothing
 ntextVal name (Just ts) = RpcParamVal name (TINText (fromIntegral $ (T.length ts) * 2) (Collation 0x00000000 0x00)) (Just ts)
 
 binaryVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)
-binaryVal name Nothing = RpcParamVal name (TIBigBinary 0xffff) Nothing
+binaryVal name Nothing = RpcParamVal name (TIBigBinary 0) Nothing
 binaryVal name (Just bs) = RpcParamVal name (TIBigBinary (fromIntegral $ B.length bs)) (Just bs)
 
 varbinaryVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)
-varbinaryVal name Nothing = RpcParamVal name (TIBigVarBinary 0xffff) Nothing
+varbinaryVal name Nothing = RpcParamVal name (TIBigVarBinary 0) Nothing
 varbinaryVal name (Just bs) = RpcParamVal name (TIBigVarBinary (fromIntegral $ B.length bs)) (Just bs)
 
 imageVal :: RpcParamName -> (Maybe B.ByteString) -> RpcParam (Maybe B.ByteString)
-imageVal name Nothing = RpcParamVal name (TIImage 0xffffffff) Nothing
+imageVal name Nothing = RpcParamVal name (TIImage 0) Nothing
 imageVal name (Just bs) = RpcParamVal name (TIImage (fromIntegral $ B.length bs)) (Just bs)