Dim strSql As String = "INSERT INTO mytable (id, diary_date, location, job_number) VALUES (?,?,?,?)"
Starter.pgsql.AddNonQueryToBatch(strSql, Array(idCol, Col2, Col3, Col4))
Dim SenderFilter As Object = Starter.pgsql.ExecNonQueryBatch("SQL")
Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
Log(Success)
If Success = False Then
Log(LastException)
End If