pchemguy
diff --git a/‎Project/SQLite/C/ADemo/SQLiteCExamples.bas
+6-2 b/‎Project/SQLite/C/ADemo/SQLiteCExamples.bas
+6-2
diff --git a/‎Project/SQLite/C/Connection/SQLiteCConnection.cls
+3 b/‎Project/SQLite/C/Connection/SQLiteCConnection.cls
+3
diff --git a/‎Project/SQLite/C/Connection/SQLiteCConnectionOpenCloseTests.bas
+2-1 b/‎Project/SQLite/C/Connection/SQLiteCConnectionOpenCloseTests.bas
+2-1
diff --git a/‎Project/SQLite/C/RecordsetADO/SQLiteCRecordsetADO.cls
+1-1 b/‎Project/SQLite/C/RecordsetADO/SQLiteCRecordsetADO.cls
+1-1
diff --git a/‎Project/SQLite/C/RecordsetADO/SQLiteCRecordsetADOTests.bas
+3-1 b/‎Project/SQLite/C/RecordsetADO/SQLiteCRecordsetADOTests.bas
+3-1
diff --git a/‎Project/SQLite/C/SQLiteCConst.bas
+1-1 b/‎Project/SQLite/C/SQLiteCConst.bas
+1-1
@@ -347,6 +347,8 @@ End Function
 Private Sub GetTableMetaFunctions()
     Dim dbs As SQLiteCStatement
     Set dbs = this.dbs
+    Dim dbsm As SQLiteCMeta
+    Set dbsm = SQLiteCMeta(dbs)
     Dim ResultCode As SQLiteResultCodes
 
     Dim SQLQuery As String
@@ -372,7 +374,7 @@ Private Sub GetTableMetaFunctions()
                       "Failed to execute the Step API."
     End Select
 
-    ResultCode = dbs.DbExecutor.TableMetaCollect
+    ResultCode = dbsm.TableMetaCollect
     If ResultCode <> SQLITE_OK Then
         Err.Raise ErrNo.UnknownClassErr, "SQLiteCExamples", _
                   "Failed to get columns meta."
@@ -393,6 +395,8 @@ End Sub
 Private Sub GetTableMeta()
     Dim dbs As SQLiteCStatement
     Set dbs = this.dbs
+    Dim dbsm As SQLiteCMeta
+    Set dbsm = SQLiteCMeta(dbs)
     Dim ResultCode As SQLiteResultCodes
 
     Dim SQLQuery As String
@@ -418,7 +422,7 @@ Private Sub GetTableMeta()
                       "Failed to execute the Step API."
     End Select
 
-    ResultCode = dbs.DbExecutor.TableMetaCollect
+    ResultCode = dbsm.TableMetaCollect
     If ResultCode <> SQLITE_OK Then
         Err.Raise ErrNo.UnknownClassErr, "SQLiteCExamples", _
                   "Failed to get columns meta."
 
@@ -293,6 +293,7 @@ End Function
 '@Description "Queries database access mode."
 Public Function AccessMode(Optional ByVal SchemaAlias As String = "main" _
                           ) As SQLiteDbAccess
+Attribute AccessMode.VB_Description = "Queries database access mode."
     FixGuard.DbNotOpened Me, "SQLiteCConnection/AccessMode"
     Dim SchemaUTF8() As Byte
     SchemaUTF8 = UTFlib.UTF8BytesFromStr(SchemaAlias)
@@ -304,6 +305,7 @@ End Function
 ''''
 '@Description "Queries the number of changes occured during the last executed statement or since the DBO creation."
 Public Function ChangesCount(Optional ByVal Total As Boolean = False) As Long
+Attribute ChangesCount.VB_Description = "Queries the number of changes occured during the last executed statement or since the DBO creation."
     FixGuard.DbNotOpened Me, "SQLiteCConnection/ChangesCount"
     If Total Then
         ChangesCount = sqlite3_total_changes(this.DbHandle)
@@ -324,6 +326,7 @@ End Function
 '@Description "Executes a plain-text non-query via a convenience shortcut."
 Public Function ExecuteNonQueryPlain(ByVal SQLQuery As String, _
             Optional ByRef AffectedRows As Long = -1) As SQLiteResultCodes
+Attribute ExecuteNonQueryPlain.VB_Description = "Executes a plain-text non-query via a convenience shortcut."
     Guard.EmptyString SQLQuery
     FixGuard.DbNotOpened Me, "SQLiteCConnection/ExecuteNonQueryPlain"
     If AffectedRows <> -1 Then AffectedRows = ChangesCount(True)
 
@@ -1,7 +1,8 @@
 Attribute VB_Name = "SQLiteCConnectionOpenCloseTests"
 '@Folder "SQLite.C.Connection"
 '@TestModule
-'@IgnoreModule AssignmentNotUsed, LineLabelNotUsed, VariableNotUsed, ProcedureNotUsed, UnhandledOnErrorResumeNext
+'@IgnoreModule AssignmentNotUsed, LineLabelNotUsed, VariableNotUsed, ProcedureNotUsed
+'@IgnoreModule UnhandledOnErrorResumeNext, FunctionReturnValueDiscarded
 Option Explicit
 Option Private Module
 
 
@@ -7,7 +7,7 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = True
-Attribute VB_Description = "Constructs ADO Recordset"
+Attribute VB_Description = "Constructs ADO Recordset using table metadata."
 '@Folder "SQLite.C.RecordsetADO"
 '@ModuleDescription "Constructs ADO Recordset using table metadata."
 '@Exposed
 
@@ -61,6 +61,8 @@ Arrange:
     Set dbc = FixObjC.GetDBCMem
     Dim dbs As SQLiteCStatement
     Set dbs = dbc.CreateStatement(vbNullString)
+    Dim dbsm As SQLiteCMeta
+    Set dbsm = SQLiteCMeta(dbs)
 
     Dim ResultCode As SQLiteResultCodes
     ResultCode = dbc.OpenDb
@@ -74,7 +76,7 @@ Act:
     SQLQuery = FixSQLITRB.SelectRowid
     ResultCode = dbs.Prepare16V2(SQLQuery)
     Assert.AreEqual SQLITE_OK, ResultCode, "Unexpected Prepare16V2 error."
-    ResultCode = dbs.DbExecutor.TableMetaCollect
+    ResultCode = dbsm.TableMetaCollect
     Assert.AreEqual SQLITE_OK, ResultCode, "Unexpected GetTableMeta error."
     Assert.AreEqual 0, AffectedRows, "AffectedRows mismatch"
 
 
@@ -70,7 +70,7 @@ Public Type SQLiteCColumnMeta
     DbName As String
     TableName As String
     OriginName As String
-    DataType As SQLiteDataType
+'    DataType As SQLiteDataType
     TableMeta As Boolean '''' Set to True if table meta is available
     DeclaredTypeC As String
     Affinity As SQLiteTypeAffinity