Public Sub DoQuery()
blResp = False
cn.Execute
blResp = True
End Sub

diventa

Public Sub DoQuery()
blResp = False
cmdAS400Lib.Execute
blResp = True
End Sub

Ciao,