s = "INSERT INTO xxxx (xxxx,xxxx,xxxx,xxx) VALUES('xxx','xxxx','xxxx','xxxx')"
Function QueryCMD(s)
Dim e : e = False
c.BeginTrans
c.Execute s
If Err.Number <> 0 Then
c.RollBackTrans
Else
c.CommitTrans
e = True
End If
c.Close
QueryCMD = e
End Function
Dim result : result = QueryCMD(s)