Puoi fare una select dalla tabello con WHERE id = 6 e poi vedere se all'interno del recorset cè qualcosa o no.

per esempio;

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM nometabella WHERE id = 6 ", cn, adOpenForwardOnly, adLockReadOnly, adCmdText

If Not rs.EOF Then

end if

Se va detro all'if vuol dire che la riga che cerchi esiste