求有多少条记录

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