SQL_Str2 = "SELECT pk, pdate, filename, place, drvid FROM cam_pics ORDER BY filename "&" LIMIT "& ((fromPage - 1) * iRecs) & ", "&iRecs
Dim var As String
var = tblFields.GetValueAt(j) ' init as string to avoid null_pointer error
If var = "null" Then
var = ""
End If
If tblFields.GetKeyAt(j) = "tspare1" Then
' Log("image to get: "&var)
Dim img As ABMImage
img.Initialize(page , "img"&j&i ,"../images/pics/"&var, 1.0)
img.SetFixedSize( 80,60)
img.IsCircular = True
rCellValues.Add(img)
rCellThemes.Add("nocolor")
Else
rCellValues.Add(var)
rCellThemes.Add("nocolor")
End if