VB中，如何将查询到的N条记录，给N个变量。

Question

rs.Open "select  top 5 Name from  表1", conn, adOpenStatic, adLockOptimistic
If rs.EOF Or rs.BOF Then
MsgBox "错误代码7612:" + vbCrLf + "你输入的团名称不正确，请重新输入！", vbOKOnly + vbInformation, "错误信息"
Else
'这里如何写
End If

Answer 1

变量数组
******************
    rs.Open "select top 5 Name from 表1", conn, adOpenStatic, adLockOptimistic
    
    If rs.EOF Or rs.BOF Then
        MsgBox "错误代码7612:" + vbCrLf + "你输入的团名称不正确，请重新输入！", vbOKOnly + vbInformation, "错误信息"
    Else
        '这里如何写
        i = 0
        
        While Not rs.EOF
            n(i) = rs.fields(0)
            i = i + 1
            rs.movenext
        Wend
    End If