Output.Show(DataTables("表A").SQLCompute("Count(第一列)","第一列 Is Not Null"))
If DataTables("表A").SQLCompute("Count(第一列)","第一列 Is Not Null") > 0 Then
MessageBox.Show("OK")
End If