Private _db As DBAccess Dim ds As DataSet Dim strSql As String strSql = "" strSql += " Select " strSql += " CASE WHEN COUNT(発注ＮＯ) = 0 THEN" strSql += " '存在しない' ELSE '存在する' " strSql += " END AS チェック結果" strSql += " From TABLE1" strSql += " where 発注ＮＯ Is null" strSql +=" And 品目区分 = '1'" ds = _db.GetData(strSql) If ds.Tables(0).Rows(0).Item("チェック結果").ToString = _ "存在しない" Then msgbox("SQL結果は存在しませんでした") else msgbox("SQL結果は存在します") end if