Connection error

src/ClassModules/SQLConnection.cls

@@ -13,7 +13,11 @@ Implements iSQLConnection
 'This allows unit testing without an active database implementation
 'The native Connection uses several function names which are reserved keywords
 
-Private orst As ADODB.Connection
+Private ocnt As ADODB.Connection
+
+Public Property Get iSQLConnection_Connection()
+  Set iSQLConnection_Connection = ocnt
+End Property
 
 Public Sub iSQLConnection_OpenConnection()
     ocnt.Open

src/ClassModules/SQLDatabase.cls

@@ -82,7 +82,6 @@ Public Function Execute(oSQL As iSQLQuery, Optional return_column = "")
     'Bitwise And the State property with The adStateOpen constant
     If CBool(rst.State And adStateOpen) = True Then rst.CloseRecordset
     If CBool(cnt.State And adStateOpen) = True Then cnt.CloseConnection
-    Set cnt = Nothing
 End Function
 
 'InsertGetNewID

src/ClassModules/SQLRecordset.cls

@@ -23,8 +23,8 @@ Public Function iSQLRecordset_State()
     iSQLRecordset_State = orst.State
 End Function
 
-Public Sub iSQLRecordset_OpenRecordset(MyQuery As String, Connection)
-    orst.Open MyQuery, Connection
+Public Sub iSQLRecordset_OpenRecordset(MyQuery As String, MyConnection)
+  orst.Open MyQuery, MyConnection.Connection
 End Sub
 
 Public Sub iSQLRecordset_CloseRecordset()

src/ClassModules/iSQLConnection.cls

@@ -22,3 +22,7 @@ End Property
 Public Function State()
 
 End Function
+
+Public Property Get Connection()
+
+End Function

testing/ClassModules/SQLTestConnection.cls

@@ -9,6 +9,10 @@ Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 Implements iSQLConnection
 
+Public Property Get iSQLConnection_Connection()
+
+End Property
+
 Public Sub iSQLConnection_OpenConnection()
 
 End Sub