Dim Rs As New Recordset
Dim Cadena As String
Rs.Open "Select DISTINCT NOMBRES, APELLIDOS, TELEFONOS, CIUDAD FROM CLIENTES", DBConex, adOpenStatic, adLockOptimistic
If Rs.RecordCount > 0 Then
For i = 1 To Rs.RecordCount
if StrComp(Cadena, Rs!Nombre, vbTextCompare) = 1 then goto Existe
Cadena = Cadena & Rs!Nombre & " " & Rs!Ciudad & " " & Rs!Telefono & Chr(13)
Existe:
Rs.movenext
Next i
MsgBox Cadena
End If
Proba con eso, debe de andar, pero antes de probarlo como no se el nombre exacto de tus campos en la DB, revisalos.