Dim i As Long = 0 Dim myTable()() As Object 'Pour chaque ligne du reader While myReader.Read() 'On ajoute une ligne a notre table ReDim Preserve myTable(i) 'On défini le nombre de colonne que va contenir notre ligne ReDim myTable(i)(myReader.FieldCount - 1) 'On rempli notre ligne myReader.GetValues(myTable(i)) i += 1 End While