Dim rsCount Set rsCount = conn.Execute("SELECT Count(*) FROM Datee where Model="&rs("ID")&"") if rsCount(0)=0 then