rancyanのプロフィール

課題でVBからデータベースの操作についてのプログラムを作成しているのですが、どうしてもエラーが出るのでお願いします。 フォームロード時に下の処理をしているのですが、 Dim sql As String Dim cm As OleDb.OleDbCommand Dim rd As OleDb.OleDbDataReader sql = "select max(番号) as 数 from アドレス帳" Try cm = New OleDb.OleDbCommand(sql, cn) rd = cm.ExecuteReader Catch ex As Exception MessageBox.Show(ex.Message, "Access Error", MessageBoxButtons.OK, MessageBoxIcon.Error) rd.Close() Exit Sub End Try If rd.Read Then frmMenu.num = rd.Item("数") frmMenu.num += 1 End If frmMenu.num += 1 txtnum.Text = frmMenu.nu この部分なんですが、 If rd.Read Then frmMenu.num = rd.Item("数") frmMenu.num += 1 End If frmMenu.num += 1 txtnum.Text = frmMenu.nu ・frmMenu.num はInteger型の変数です。初期値に0が入っています。 この部分では、データが読めた場合はデータベースの方から 数を引っ張ってきて、＋１をして、読めない（データがない） 場合には+1だけをしたいのですが、データがある時は正常に 動くのですが、データがない時に動かそうとすると、 型 'DBNull' から型 'Integer' への変換は無効です のエラーがでて困っています。 これは、読めたか読めなかったか判定出来ていないということなのでしょうか？

ママチャリと比べたら失礼だと思うけど、一番安いロードバイクだって10万円近くするし、もちろん高いヤツと言ったら余裕に100万円を超えてる。同じ値段でピカピカな車をかえるわけ。いくらテクノロジーをマシンに盛り込んでるって、自動車、カメラ、オードバイほどではないだろう?機械学だけでなく、化学、力学、電子学、材料学などなど。だからロードバイクってやっばり儲けは半端じゃないなっと思うわけ。 だから初心者にとってはロードって敷居が高いと思うわけだ。もっとサイクルを親しみしやすくしたいならメーカー自身が反省しなくちゃいけないじゃないですか？と思います。皆さんはどう思っていますか？ちなみに僕はサイクル歴12年でした。