Dim SQL1 As SQL
SQL1.Initialize(File.DirDefaultExternal, "Database.db", True)
Dim sResult As Float
Dim sSQLQuery As String
sSQLQuery = "SELECT SUM(Value) FROM Invoices WHERE ClientID=1 AND strftime('%m', InvoiceDateTime)='01' AND strftime('%Y', InvoiceDateTime)='2012'"
sResult = SQL1.ExecQuerySingleResult(sSQLQuery)
If sResult = Null Then
Return 0
Else
Return sResult
End If