diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,6 @@
+0.2.1:
+	* Expose rawUnescapedText
+
 0.2.0:
 	* Drop Maybes, use NullValue.
 
diff --git a/odbc.cabal b/odbc.cabal
--- a/odbc.cabal
+++ b/odbc.cabal
@@ -5,7 +5,7 @@
              suite runs on OS X, Windows and Linux.
 copyright: FP Complete 2018
 maintainer: chrisdone@fpcomplete.com
-version:             0.2.0
+version:             0.2.1
 license:             BSD3
 license-file:        LICENSE
 build-type:          Simple
diff --git a/src/Database/ODBC/SQLServer.hs b/src/Database/ODBC/SQLServer.hs
--- a/src/Database/ODBC/SQLServer.hs
+++ b/src/Database/ODBC/SQLServer.hs
@@ -29,6 +29,7 @@
   , Value(..)
   , Query
   , ToSql(..)
+  , rawUnescapedText
   , FromValue(..)
   , FromRow(..)
   , Internal.Binary(..)
@@ -217,6 +218,12 @@
 
 instance IsString Query where
   fromString = Query . Seq.fromList . pure . fromString
+
+-- | Do not use for writing your queries. Use when writing instances
+-- of 'ToSql' if you want to efficiently include a 'Text'
+-- value. Subject to SQL injection risk, so be careful.
+rawUnescapedText :: Text -> Query
+rawUnescapedText = Query . Seq.singleton . TextPart
 
 -- | A part of a query.
 data Part