I figured it out. I had to add

SET NOCOUNT ON

Here is the vb execution code:

Option Explicit

Private rc As Variant

Private Sub cmdRun_Click()

Dim PrintPostDate As Date

Dim cAppSettings As clsAppSettings

Dim strServer As String

...