Access - Uso de JOINRS

Conseguí este ejemplo en esta dirección
http://www.clubusenet.com/thread/2540939.html

Por ejemplo, en el código siguiente saco un recordset con los nombres que no
tienen CIF y lo paso a una variable de texto, stLista que utilizo primero
para mostrarlos en un Msgbox y después como filtro para insertar registros
en otra tabla usando "In (" & stlista & "))

Set rsNombreSinCif = New ADODB.Recordset
rsNombreSinCif.Open stNombreSinCif, CurrentProject.Connection, adOpenStatic,
adLockReadOnly
stlista = JoinRS(rsNombreSinCif, "Nombre", ",")
If Nz(stlista, "") <> "" Then
MsgBox "Los nombres indicados más abajo existen ya en la
aplicación,........" & _
end if

Mi pregunta estuve intentando usarla no logro hacerla funcionar, entiendo que es lo que hace la función, pero no tengo idea de como hacerla funcionar

StNombreSinCIF que debe ser? aparte de un string, que debe contener, no se

En el Codigo que pasas, el tipo de recordset que utiliza es ADO y nosotros solo sabemos trabajar con Recordset DAO.
Para solucionar el problema, deberias cambiar:

Set rsNombreSinCif = New ADODB.Recordset
rsNombreSinCif.Open stNombreSinCif, CurrentProject.Connection, adOpenStatic,
adLockReadOnly

Por
Dim rsNombreSinCif as New ADODB.Recordset
RecordsetADO.Open rsNombreSinCif , CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Yo probé un tiempo trabajar con recordset ADO, pero se me complicó (por desconocer sobre el tema), si que volví al querido DAO.

Joselo por favor podrías explicame como si fuera yo un niño de pecho por que seguí tus instucciones y no me funciona, en momentos me siento frustado( creoq eu este sentimiento lo hemos tenido todo con esto).

Dim stlista As String
Dim rsNombreSinCif As New ADODB.Recordset
RecordsetDAO.Open rsNombreSinCif, Current.Connection, adOpenKeyset, adLockOptimistic


stlista = JoinRS(rsNombreSinCif, "DocumentoVista", ",")
If Nz(stlista, "") <> "" Then
MsgBox "Prueba,........" & _
"....pero sin CIF, " & vbCrLf & stlista


Exit_Command152_Click:
Exit Sub
Else
End If
Err_Command152_Click:
MsgBox Err.Description
Resume Exit_Command152_Click

End Sub

Joselo por favor podrías explicame como si fuera yo un niño de pecho por que seguí tus instucciones y no me funciona, en momentos me siento frustado( creoq eu este sentimiento lo hemos tenido todo con esto).

Dim stlista As String
Dim rsNombreSinCif As New ADODB.Recordset
RecordsetDAO.Open rsNombreSinCif, Current.Connection, adOpenKeyset, adLockOptimistic


stlista = JoinRS(rsNombreSinCif, "DocumentoVista", ",")
If Nz(stlista, "") <> "" Then
MsgBox "Prueba,........" & _
"....pero sin CIF, " & vbCrLf & stlista


Exit_Command152_Click:
Exit Sub
Else
End If
Err_Command152_Click:
MsgBox Err.Description
Resume Exit_Command152_Click

End Sub

La verdad es que la funcion JoinRS, no la entiendo.

Lamento comunicarte que se me quemaron los papeles. Mil disculpas