Problem with breakpoints and ADO.NET

[Rick D]

I'm having problems using breakpoints with Visual Basic .Net. Breakpoints
work until I excute certain commands. If I set a breakpoint above the
odtrVBDataReade r = .ExecuteReader( )
statement in the example below it works fine. Any breakpoint after the
statement won't be hit. The code executes as expected, it just won't stop at
the breakpoints. Also if I single-step to the command above, when it is
executed I get the "There is no source code available for the current
location." pop-up. The code below shows an example:

Public Sub Testsub()
Dim Test As String
Dim strVBConn As String = _
"Provider=Micro soft.Jet.OLEDB. 4.0;" _
& "User ID=Admin;" _
& "Data Source=""(path) \File"""
Dim ocmdVBCommand As OleDbCommand
Dim odtrVBDataReade r As OleDbDataReader
Try
ocmdVBCommand = New OleDbCommand
With ocmdVBCommand
.Connection = New OleDbConnection (strVBConn)
.Connection.Ope n()
.CommandText = "Select Account, PaidBy From Table"
-> odtrVBDataReade r = .ExecuteReader( ) ' Break points above
this work.
End With
Do While odtrVBDataReade r.Read
Test = odtrVBDataReade r.GetString(1)
Loop

Catch oexpData As OleDb.OleDbExce ption

Exit Sub
End Try
odtrVBDataReade r.Close()
ocmdVBCommand.C onnection.Close ()
End Sub

Any help would be appreciated.
Thanks,
Rick

[Rick D]

I have worked around this problem. The statements below do cause the
problem, it's just where it shows up. I eliminated statements until I found
the problem. It was caused by the following statement:
intCharCountE = InStr(intCharCo untS, strtest, "~", CompareMethod.T ext)
When I removed the CompareMethod.T ext option of the statement, the problem
went away.

Rick

"Rick D" wrote:

I'm having problems using breakpoints with Visual Basic .Net. Breakpoints
work until I excute certain commands. If I set a breakpoint above the
odtrVBDataReade r = .ExecuteReader( )
statement in the example below it works fine. Any breakpoint after the
statement won't be hit. The code executes as expected, it just won't stop at
the breakpoints. Also if I single-step to the command above, when it is
executed I get the "There is no source code available for the current
location." pop-up. The code below shows an example:

Public Sub Testsub()
Dim Test As String
Dim strVBConn As String = _
"Provider=Micro soft.Jet.OLEDB. 4.0;" _
& "User ID=Admin;" _
& "Data Source=""(path) \File"""
Dim ocmdVBCommand As OleDbCommand
Dim odtrVBDataReade r As OleDbDataReader
Try
ocmdVBCommand = New OleDbCommand
With ocmdVBCommand
.Connection = New OleDbConnection (strVBConn)
.Connection.Ope n()
.CommandText = "Select Account, PaidBy From Table"
-> odtrVBDataReade r = .ExecuteReader( ) ' Break points above
this work.
End With
Do While odtrVBDataReade r.Read
Test = odtrVBDataReade r.GetString(1)
Loop

Catch oexpData As OleDb.OleDbExce ption

Exit Sub
End Try
odtrVBDataReade r.Close()
ocmdVBCommand.C onnection.Close ()
End Sub

Any help would be appreciated.
Thanks,
Rick