current state personal macrobook

TheBigOne.cls

@@ -28,7 +28,7 @@ End Enum
 
 Public Enum SQLsyntax
     Db2 = 0
-    MSSQL = 1
+    SqlServer = 1
     PostgreSQL = 2
 End Enum
 
@@ -2718,7 +2718,7 @@ Public Function SQLp_build_sql_values(ByRef tbl() As String, trim As Boolean, he
     Select Case syntax
         Case SQLsyntax.Db2
             sql = "SELECT * FROM TABLE( VALUES" & vbCrLf & sql & vbCrLf & ") x"
-        Case SQLsyntax.MSSQL
+        Case SQLsyntax.SqlServer
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
         Case SQLsyntax.PostgreSQL
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
@@ -2882,7 +2882,7 @@ Public Function SQLp_build_sql_values_ranged(ByRef tbl() As String, trim As Bool
     Select Case syntax
         Case SQLsyntax.Db2
             sql = "SELECT * FROM TABLE( VALUES" & vbCrLf & sql & vbCrLf & ") x"
-        Case SQLsyntax.MSSQL
+        Case SQLsyntax.SqlServer
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
         Case SQLsyntax.PostgreSQL
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
@@ -3081,6 +3081,8 @@ Function TBLp_VarToString(ByRef t() As Variant) As String()
     Dim j As Long
     Dim x() As String
     
+    On Error GoTo errh
+    
     If LBound(t, 1) = 1 Then
     End If
     
@@ -3094,6 +3096,11 @@ Function TBLp_VarToString(ByRef t() As Variant) As String()
 
     TBLp_VarToString = x
     
+errh:
+    If Err.Number <> 0 Then
+        MsgBox ("error on row: " & i)
+    End If
+
 End Function
 
 Function TBLp_StringToVar(ByRef t() As String) As Variant()