Distinct funkar ej

Har försökt med distinct för att få denna kodsnutt att hämta alla bilder från tbl_vimmel_photos enbart en gång om de har en kommentar ifrån tbl_vimmel_comments. Hoppas någon förstår mig. Hur ändrar jag så det fungerar?

<table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
<%SQL = "Select Distinct C.cID,P.vimmelNr,P.bildnamn,P.bildID From tbl_vimmel_photos P, tbl_vimmel_comments C Where C.bildID=P.bildID and C.visa=1 and P.visa=1 Order By c.CID desc limit 10"
Set VimPic=Conn.Execute(SQL)
  If VimPic.EOF Then%>
  <tr> 
    <td width="6"></td><td>Inga bilder kommenterade!</td> 
  </tr> 
<%Else
  x=0
  y=1
  Do Until VimPic.EOF
    If X Mod 5 = 0 Then 
      If  x > 0 Then Response.Write "</tr>"
      Response.Write "<tr><td width=""6""></td>"
    End If%>
      <td width="20%" align="center">
		<table width="100%" style="border:1px solid #272727" border="0" cellspacing="0" cellpadding="6">

			<tr>
				<td width="2"></td>
				<td title="Bildnr: <%=VimPic(3)%>"><a href="/vimmel/imageView.asp?id=<%=VimPic(1)%>&bildID=<%=VimPic(0)%>"><img src="/gfx/photos/ID_<%=VimPic(1)%>/<%=VimPic(2)%>" width="80" height="65" border="1"></a></td>
				<td width="2"></td>
			</tr>
		</table>

                </td>
              <%x=x+1
              y=y+1
            VimPic.MoveNext
            Loop
            If x Mod 5 <> 0 Then
              For i = 1 To 5 - x Mod 5%>
               <td>&nbsp;</td>
              <%Next
            End If
            Response.Write "<td width=""6""></td></tr>"
          End If%>
	</tr>		
</table>

Select  max(c.cid) as lastComment, 
        P.vimmelNr,
        P.bildnamn,
        P.bildID 
   From tbl_vimmel_photos P, 
        tbl_vimmel_comments C 
  Where C.bildID=P.bildID 
    and C.visa=1 
    and P.visa=1 
  group by P.vimmelNr,
        P.bildnamn,
        P.bildID 
  Order By lastComment desc 
  limit 10

Tackar så hemskt mycket :) Funkar fint