这个意思?
If Tables("表B").Current("第一列") = nothing Then
Else
End If
或者
If Tables("表a.表B").Current("第一列") = nothing Then