VB 关于在数据库关闭前检查是否有空记录的程序段,谢谢

程序段：
command1_clike()‘退出
Adodc1.Recordset.MoveFirst '对数据记录中的空行进行检查
For W = 1 To Adodc1.Recordset.RecordCount
If Adodc1.Recordset.Fields("单位") = "" Then
MsgBox "本表中存在空记录的情况，请立即给予填充或删除，否则将不能打印！", vbOKOnly, "提示"
Exit Sub
End If
Adodc1.Recordset.MoveNext
Next WAdodc1.Recordset.ActiveConnection.Close
Unload Me
end sub

问题:
在真实地见到记录中某列某格中是空记录（Null），但按了command1后，不但没有见到“MsgBox”提示，还关闭了数据链接，更有Unload Me，象是这段程序白写了一样，这是为什么，谢谢。
Next W
Adodc1.Recordset.ActiveConnection.Close

关于VB中数据库 关于数据库及VB 关于vb数据库查询 关于vb数据库的 关于VB 数据库的 关于VB数据库编程 关于 vb 数据库问题 VB数据库对象关闭问题,急急急~~~~~ 关于孕前检查 关于VB数据库项目案例!