ADODB.FieldsToInternalFieldsMarshaler

[Arun Madhav]

Hi,

I just upgraded my Windows 8.1 to Windows 10. I am using Visual Studio Ultimate 2013. In my VB.Net windows application, while loading ADODB recordset, following error is coming.

Request your kind help on this issue.

While running the following code,


Connect()
Rst_History = New ADODB.Recordset
Rst_History.LockType = ADODB.LockTypeEnum.adLockOptimistic
SQL_Str = "Select * from tbl_UserMaster order by User_Name"
Rst_History.Open(SQL_Str, Conn, ADODB.CursorTypeEnum.adOpenKeyset)
If Rst_History.RecordCount <> 0 Then
With Rst_History
.MoveFirst()
Do
lstVw = lstUsers.Items.Add(Rst_History("User_ID").Value)
lstVw.SubItems.Add(Rst_History("User_Name").Value)
lstVw.SubItems.Add(Rst_History("User_Emp_Id").Value)
lstVw.SubItems.Add(Rst_History("User_Role").Value)
.MoveNext()
Loop Until .EOF
End With
End If



Thanks in advance


Arun Madhav


Arun Madhav

Continue reading...