With grdInvoices

        ' Remove any existing columns
        If (.Columns.Count > 0) Then
            For i = 0 To .Columns.Count - 1
                .Columns.Item(0).Delete
            Next
        End If

        .ConnectionString = "ConnectionString"

        strSQL = "SELECT something from sometable"

        ' Add new SQL and refresh so grid is bound
        .SQL.Text = strSQL
        .Refresh

        ' Pull the recordset from grid to determine fields in query
        Set objRS = .Recordset
        For Each fld In objRS.Fields
            Set col = .Columns.Add(0)
            col.FieldName = fld.Name
            col.Caption = fld.Name

            ' Apply properties to specific fields
            If fld.Name = "invamt" Then
                col.Caption = "Inv Amt"
                col.DisplayFormat = ",0.00;-,0.00"
            End If
        Next

        .ReadOnly = True
        .RowSelect = True
        .Sortable = True
        txtCount.Text = objRS.RecordCount
        .Refresh
    End With