Private Sub frmQuery3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
frmQuery2.Hide()
Dim columns As String = frmQuery2.GetColumns
cmbColumnSort.MaxDropDownItems = columns.Length
For stepper = 0 To (columns.Length - 1)
cmbColumnSort.Items.Add(columns(stepper))
Next
End Sub
Private Sub frmQuery3_Load(sender As System.Obj