A=...
adodc1.recordsource = "Select MAX(Num) Into " & A & " FROM TAB"