as database table itself is in 2D . so you can fill your 2D table of your database in one call .see the following . hope it might help .

Private Sub Form_Load()
Dim con As New ADODB.Connection...