I have had a similar problem before, but cleaared it by checking 'installed components' and 'libraries'. However, this one seems to defy explanation ! I can run my application on the desktop with no problems, however, I have copied it to the laptop with exactly the same configuration of reference libraries in V.B.6, and components. It throws up a 'Type Mismatch' error, when it comes to set my declared recordsets i.e. as snapshots, the code is as follows :

Dim MyDb As Database
Dim s1 As Recordset
Dim s2 As Recordset
----------------------------
Later in program ....

Set MyDb = OpenDatabase("C:\My Documents\BeautyMatters.mdb")
   Set s1 = MyDb.OpenRecordset("SELECT Therapist_ID, [First Name], Surname FROM Therapists WHERE Therapist_ID=" & adoAppts.Recordset!Therapist_ID & ";", dbOpenSnapshot)
   lblShowBooking.Caption = "Booked Appointments for " & s1![First Name] & " " & s1!surname & " on " & Format(adoAppts.Recordset.Fields("Appt_Date"), "dddd, d mmmm yyyy")
   s1.Close
   Set s1 = MyDb.OpenRecordset("SELECT Therapist_ID, Appt_Date, Treatment_ID, Time_Number FROM Appointments WHERE Therapist_ID=" & adoAppts.Recordset!Therapist_ID & " And Appt_Date=#" & adoAppts.Recordset!Appt_Date & "# ORDER BY Time_Number;", dbOpenSnapshot)
   Set s2 = MyDb.OpenRecordset("SELECT Treatment_ID, Duration FROM Treatments;", dbOpenSnapshot)

You can ignore the Recordsource and S.Q.L. that's perfectly fine....

but when it gets to the 'Set' statement for s1 and s2, it throws up a 'Type Mismatch' error. Any ideas would be very gratefully received. Thanks, Liam.

It could be version incompatibility.
You state that you have "copied" the same configuration of reference libraries. I am unclear regarding this. It is possible that you have not registered the dll's that your app is using, and that you merely copied them?

Are you using a development environment on the laptop? It seems that you are, as opposed to just trying to run the compiled application on the laptop. I just want to be clear on what exactly you are trying to do.

Is it possible that you are also referencing ADODB in your project (as well as DAO, which it appears you are using)? This will cause an ambiguity since both object models have a recordset component. This is a situation where it could work on one box but not on the other. If this is the case, you can fix it by simply using the complete qualifier:

Dim s1 As DAO.Recordset

Woody Z
http://www.learntoprogramnow.com