I must be missing something very basis as the following is throwing a Runtime Error 13 Type Mismatch Dim rst As Recordset Set rst = Me.RecordsetClone On the Set command The code is in the On Click event of a button