[VB6] record in un unica soluzione

[xegallo]

'apri il recordset
dim sTemp as string
    If Not (rs.BOF And rs.EOF) Then
        Do Until rs.EOF
            stemp = stemp & rs!nomecampo & ", "
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
    stemp = left(stemp,len(stemp)-2)