codice:
 
Sub crea()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
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, 1, 2
    a = rs.Source = " select top 1 * from [giocatori] order by rnd([id]);"
    b = rs.Source = " select top 1 * from [giocatori] order by rnd([id]);"
    rs.AddNew
        rs("sa") = a
        rs("sb") = b
    rs.Update
End Sub
nella tabella sfide mi da
id sa sb
19 0 0
20 0 0
21 0 0
22 0 0
23 0 0
24 0 0

al posto di 0 ci dovrebbero essere i nomi della tabella giocatori