diff --git a/lib/WebGUI/SQL/ResultSet.pm b/lib/WebGUI/SQL/ResultSet.pm
index 4ed6d4dbb..3d71ab4dc 100644
--- a/lib/WebGUI/SQL/ResultSet.pm
+++ b/lib/WebGUI/SQL/ResultSet.pm
@@ -60,6 +60,19 @@ sub array {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 db ( )
+
+A reference to the current WebGUI::SQL object.
+
+=cut
+
+sub db {
+	my $self = shift;
+	return $self->{_db};
+}
+
 #-------------------------------------------------------------------
 
 =head2 errorCode {