Option Base 1
Public OutX()
Sub SimpleWriteToDB()
Dim db As Long, blob() As Byte, i As Long, feedback As String
db = openDB("C:\ATestSQLite\CheckThis.db")

execSQL db, "insert into CsvTest values('Black', 21,131,101);"
' execSQL db, "insert into CsvTest values('Roger1', 21,131);"
closeDB (db)

End Sub
Sub ReadFromDB()
'working OK
Dim db As Long, blob() As Byte, i As Long, feedback As String, strSQL As String
ReDim OutX(20, 5)
db = openDB("C:\ATestSQLite\TestData.db")
strSQL = "select * from CsvTest WHERE Col1 = 'Jane' "
selectFromTab db, strSQL

closeDB (db)

End Sub

Sub LoopWriteToDB()
'working OK
Dim db As Long, blob() As Byte, i As Long, feedback As String, strSQL As String
With ThisWorkbook.Sheets("Sheet1")
RR = .Range("a4000").End(xlUp).Row
XData = .Range("A1").Resize(RR, 4)
End With
db = openDB("C:\ATestSQLite\CheckThis.db")
Q1 = Chr(39)
Tblref = "insert into CsvTest values("
For rdx = 2 To UBound(XData)
strSQL = Tblref
cm = ""
For cdx = 1 To UBound(XData, 2)
xval = XData(rdx, cdx)
If Not IsNumeric(xval) Then
xval = Q1 & xval & Q1
End If
strSQL = strSQL & cm & xval
cm = ","
Next cdx
strSQL = strSQL & ");"
execSQL db, strSQL
Next rdx


closeDB (db)

End Sub