Dim fil As String = "AA = '" & Ary(0) & "' and BB = # " & Ary(1) & " # And CC = '" & Ary(2) & "'"
改成
Dim fil As String = "AA = '" & Ary(0) & "' and BB = # " & Ary(1) & " # And DDD = '" & Ary(2) & "'"