VB.NET初心者です。

質問

お世話になります。
開発環境はWinXP Pro、VisualStudio2008 Pro
になります。
ADOでSQLSERVERに接続しようと思っているのですが「comexceptionはハンドルされませんでした」とのエラーが出ます。
どの部分が間違っているのかわかりません。
どなたか御教授いただけないでしょうか？

***************************************************
以下コードです。

Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'
'
'
'
' Jobの一覧を表示
'
'
'
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'************************************************************'
' 初期処理
'************************************************************'
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim MySQL As String

'************************************************************'
' コネクション 接続開始
'************************************************************'
cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=SQLOLEDB;" _
& "Server=anp_sqlserver; " _
& "database=" & "PC固定資産管理システム;" _
& "UID=sa; " _
& "Password=''"
cn.Open()
'************************************************************'
' レコードセット 接続開始
'************************************************************'
rs.CursorLocation = ADODB.CursorLocationEnum.adUseServer
rs.CursorType = ADODB.CursorTypeEnum.adOpenForwardOnly
rs.LockType = ADODB.LockTypeEnum.adLockPessimistic
MySQL = "select * " _
& "from [TA0002_原価計算グループマスタ]"
rs.Open(MySQL, cn, ADODB.CursorTypeEnum.adOpenKeyset, _
ADODB.LockTypeEnum.adLockReadOnly)

'************************************************************'
' 終了処理
'************************************************************'
rs.Close()
cn.Close()

回答No.1

noname#259269

せめてステップ実行して、エラー行を特定しましょう。
プログラムリストのすぐ左側の空列をマウスでクリックすると、●がつき、そこでプログラムの実行が一時停止します。そこから[F11]キーを押すと、1行ずつ実行できます。

また、ADO.NET を使うべきでしょう。
参考サイト
http://yunet.2.pro.tok2.com/contents/net_db/index.html