Dim cmd As New SQLCommand 'cmd.Connection Name = "数据源" cmd.CommandText ="Select Count(*) From {表A} Where [_Identify] = " & Tables("表A").current("_Identify") If cmd.ExecuteScalar = 1 Then Messagebox.Show("哈,我还在!") Else Messagebox.Show("唉,我被干掉了!") End If