在一表中的一个字段中随机抽取两次记录并合并，在插入别的表中字段里

Sub tt()
    Dim i As Integer
    Dim j As Integer
    Dim Ds As String
    Dim strsql As String
    Dim rst As New ADODB.Recordset
    Dim k As Long
    On Error Resume Next
    strsql = "Select * FROM C"
    rst.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To 2    '循环2次
        For j = 1 To 5    '循环5次
            Ds = DLookup("导师", "b", "id=" & shuiji(k))
            rst.AddNew
            rst!导师 = Ds
            rst.Update
        Next
    Next
End Sub
Public Function shuiji(IID As Long) As Long
    IID = DCount("*", "b")
100:
    shuiji = (Rnd() * IID)
    If shuiji = 0 Then GoTo 100
End Function