Arrays reading (VB)

Sub sample5()
 Dim cn As New ADODB.Connection

 ' use file with parameters of connection
 cn.Open "file name=e:\database\employee.ibp"

 Dim cmd As New ADODB.Command

 cmd.ActiveConnection = cn

 'read JOB.LANGUAGE_REQ VARCHAR (15) [1:5]
 cmd.CommandText = "select job_code,language_req from job"

 Dim rs As ADODB.Recordset

 Set rs = cmd.Execute

 Debug.Print "JOB.LANGUAGE_REQ --------------"

 ' copy of data of array field. Call of rs("language_req") always download
 Dim lang_req As Variant

 While Not rs.EOF
  Debug.Print "JOB_CODE:" & CStr(rs("job_code"))
  Debug.Print "LANGUAGE_REQ:"

  lang_req = rs("language_req")

  If (IsNull(lang_req)) Then
   Debug.Print ">[NULL]"
  Else
   Dim i As Long
   ' Walk of elements of array
   For i = LBound(lang_req) To UBound(lang_req)
    Debug.Print ">" & lang_req(i)
   Next i
  End If

  Debug.Print "----------------"
  rs.MoveNext
 Wend
End Sub 'sample5