Dim n1 As Integer
Dim cmd As New SQLCommandcmd.Connec tionName = "XXXX" '自行去掉 Connec tionName 间的空格cmd.CommandText ="Select Count(*) From {X表} Where A列 = 'ABC'"n1 = cmd.ExecuteScalar