Option Compare Database

 Sub stud_write()
 Dim rs As Recordset
 Dim rss As Recordset
 Dim s As String
 Dim i As Integer
 Dim st As String
 
 Dim ex As Excel.Application
 Set ex = New Excel.Application
 ex.Documents.Add
 
 
 Const mass =  6 
 Dim ar(mass) As String
 
 Set rs = CurrentDb.OpenRecordset("students")
 Set rss = CurrentDb.OpenRecordset("stud")
 i =  0 
 
 Do While Not rss.EOF
 st = rss.Fields("fio")
 i = i +  1 
 ar(i) = st
 'MsgBox st
 
 rss.MoveNext
 Loop
 ' Do While Not rs.EOF
 ' s = rs.Fields("student")
 ' MsgBox s
 ' rs.MoveNext
 ' Loop
 
 For i =  1  To mass
 MsgBox ar(i)
 Next i
 
 rs.Close
 rss.Close
ex.Quit
Set ex = Nothing
End Sub