ADODB を使用してコマンドのバッチを実行すると、それぞれが個別に実行されると思います。次のコマンドを強制的に実行するには、以下を使用する必要があります:
Set rs = rs.NextRecordset()
ルーチンの最後を次のように変更すると、うまくいくはずです:
Set rs = New ADODB.Recordset rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic Set rs = rs.NextRecordset MsgBox (rs.Fields(0).Value)