Private Sub Command32_Click() > >cDim R As Recordset, SQLText >SQLText = "Select * From Product Where Catalog = 'CAT3'" >Set R = CurrentDb.OpenRecordset(SQLText) >If R.RecordCount Then > > MsgBox "Record exists" >Else > MsgBox "Record not found" >End If > >End SubWhat's with the cDim line? Is that a typo or is this line highlighted as red in your code?