Private Sub RunQuery()
'The following Visual Basic example runs an SQL statement
' showing the first 25 row results.
Dim sDomainName As String
Dim sProjectName As String
Dim sSql As String
Dim sReply As String
On Error GoTo err
sDomainName = "MyDomain"
sProjectName = "MyProject"
sSql = "SELECT * FROM REQ"