Dim cmd As New SQLCommandDim cnt As Integercmd.ConnectionName = "数据源名称"cmd.CommandText = "Select Count(*) From {订单} " & Filtercnt = cmd.ExecuteScalar