I am having some problems with an unbound form. I have made a quick sample 

form, with the code below. I am still getting the same error message. 



Error Msg

Run-time error '2448':

You can't assign a value to this object.



My Code



Private Sub Report_Open(Cancel As Integer)

Dim db As Database

Dim rstest As Recordset

Dim strSQL As String



strSQL = "SELECT Company.* FROM Company"



Set rstest = CurrentDb().OpenRecordset(strSQL)



Me.CompanyName = rstest!CompanyName

End Sub



Thanks,



Chris