Private Sub Form_Load()
With DataGrid1
For i = 0 To Columns.Count -1
ReDim Preserve sField(i)
sField(i) = .Columns(i).DataField
Next i
End With
End Sub
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.RecordSource = strSQL & " order by " & sField(ColIndex)
Adodc1.Refresh
End Sub