sSQL = "some sql query"
Dim SenderFilter As Object = pConn.ExecQueryAsync("SQL", sSQL, Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
if Not(rs.NextRow) Then
' do something else
else
' do this code
end if
rs.close