vi posto il codice ke mi prende i due nomi a caso
codice:
 
Sub crea()
Randomize
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\torneo.mdb"
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open stringa
    rs.Open "sfide", cn, 3, 3
    rs.AddNew
        rs("sa") = rs.Source = " select top 1 * from [giocatori] order by rnd([id]);"
        rs("sb") = rs.Source = " select top 1 * from [giocatori] order by rnd([id]);"
    rs.Update
    Set cn = Nothing
    Set rs = Nothing
End Sub
facendo cosi mi prende solo due nomi io voglio che mi deve creare le coppie di tutti in nomi presenti nella tabella
lo so devo usare un cilco ma non so quale sia il più adatto