如何在sql语句中用变量传递一个null值

dim z as variant
if text1.text="" then
    z=null