'用storage模式(tdbgrid1.datamode=4)方便易用，其他几种非帮定模式比较复杂
'在此之前必须引用APEX XArray object

Dim x As New XArray

Private Sub Form_Load()
Dim row, col As Long

x.ReDim 0, 99, 0, 3
For row = x.LowerBound(1) To x.UpperBound(1)
For col = x.LowerBound(2) To x.UpperBound(2)
x(row, col) = "Row " & row & ", Col " & col
Next col
Next row

' Bind True DBGrid Control to this XArray instance
Set TDBGrid1.Array = x

End Sub