あるフォームのテーブルでレコードごとにＡ・Ｂ・Ｃの3つのテキストボックスとＸ・Ｙ・Ｚのチェックボックスがありまして

Ｂ・Ｃのテキストボックスがブランクだったら、Ｙ・ＺのチェックボックスをEnabled = False
Ｃのテキストボックスがブランクだったら、ＺのチェックボックスをEnabled = False
この2つのパターンがあります。どうしたらいいのですか。教えてください。やっぱりDO～LoopのRS.EOFですか。僕が考えるプログラムはこれです。まちがっていますか。


      Private Sub Form_Open(Cancel As Integer)

       Set DB = DBEngine.Workspaces(0).Databases(0)
       Set RS = DB.OpenRecordset("テーブル名", dbOpenDynaset)
        
        Set a2 = RS.Fields("Ｂ")
        Set a3 = RS.Fields("Ｃ")
        Set s2 = RS.Fields("Ｙ")
        Set s3 = RS.Fields("Ｚ")

　　　RS.Movefaset
     Do until RS.eof
        If a2="" and a3="" then
        S2. Enabled = False
        S3. Enabled = False
       RS.movenexst
Else
     If If a2<>"" and a3="" then
     S3. Enabled = False
     RS.movenexst
End if
End if

Db.close