SQLserverの構文をAccessVBAに直したい

Question

このSQLServerのコードをAccessVBAに直したいのですがうまくいきません。
エラーは、プロパティの使い方が不正です。と出ます。

IF @IntMin > 0
	BEGIN
		IF @IntMax = 0
			SET @IntMax = @IntMin
		SELECT * FROM チェックリストデータ WHERE a_no>= @IntMin AND a_no<= @IntMax
	END
ELSE
	SELECT * FROM チェックリストデータ WHERE a_user= 'user' AND d1listflg = 1

とりあえず、Thenを追加し
@から始まるものを正しい値に変えたのですが
他どう直せばいいのでしょうか？

Answer 1

しょうもないミスでした。
SET @IntMax = @IntMinはいらないみたいです。
あとEnd ifも足りてませんでした。
失礼しました。