PRB: RDO Run-time Error '40060': Incorrect Type for Parameter (181857)

MORE INFORMATION

Steps to Reproduce Behavior

1. Use ISQL/W or another tool to create a table using the following SQL statement:

         CREATE TABLE dbo.TestNull (
           ID int NOT NULL ,
           F1 varchar (10) NULL ,
           CONSTRAINT PK_TestAddNew_1__15 PRIMARY KEY  CLUSTERED
             (
             ID
             )
         )
   						

2. Add a record, leaving F1 with a NULL value. You may do this in ISQL/W or VISDATA in Visual Basic.
3. In Visual Basic 5.0, create a new project.
4. Reference Microsoft Remote Data Objects 2.0.
5. Add a command button (Command1) and the following code.
   
   Note You must change UID <username> and PWD <strong password> to the correct values before you run this code. Make sure that UID has the appropriate permissions to perform this operation on the database.

         Private Sub Command1_Click()
         Dim cn As rdoConnection, rs1 As rdoResultset, rs2 As rdoResultset
           rdoEngine.rdoDefaultCursorDriver = rdUseServer
           Set cn = rdoEngine(0).OpenConnection("", rdDriverNoPrompt, False, _
             "Driver={SQL Server};Server=moonbase;uid=<username>;pwd=<strong password>;database=pubs")
           Set rs1 = cn.OpenResultset("SELECT * FROM TestNull", _
             rdOpenKeyset, rdConcurValues, rdExecDirect)
           rs1.MoveLast
           Set rs2 = cn.OpenResultset("SELECT * FROM TestNull", _
             rdOpenKeyset, rdConcurValues, rdExecDirect)
           rs2.Edit
           rs2!F1 = rs1!F1
           rs2.Update
           rs1.Close
           rs2.Close
           cn.Close
         End Sub
   						

6. Run the project and click the command button and the error message will appear.
7. Change the line:

         rs2!F1 = rs1!F1
   						

   -to-

          rs2!F1 = rs1!F1.Value
   						

8. Run the project again, and the error will not appear.