Visual Basic - Ayuda con dbgrid y sql

Hola a todos.
Lo que me ocurre es que hago una sql en la que hago una seleccion de una serie de campos de una tabla,pero claro por el campo que quiero hacer la ordenación no esta en la sql,ya q este no me interesa q aparezca en el dbgrid.Alguien sabe como meter ese campo en la sql y q despues no aparezca en el dbgrid.
Muchas gracias a todos de antemano.

Espero esto te ayuda
'* CARGA EL FORMULARIO
Private Sub Form_Load()
On Error Resume Next
Call Load_Grid
End Sub

Private Sub Load_Grid()
Set rs = New ADODB.Recordset

xSelect = "SELECT CTA_CONT1, CTA_CONT2, CTA_CONT3, CTA_CONT4"
On Error GoTo rsError_Handler
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Open xSelect, cn
End With

Set Grid.DataSource = rs
Call DimensionaColumnas
Exit Sub

rsError_Handler:
'Si ocurre un error, al momento de conextarse a la tabla
MsgBox "Se ha producido siguiente Error:" & Str(Err.Number) & " " & Err.Description, vbCritical + vbOKOnly, "Error"
End Sub

Private Sub DimensionaColumnas()
With Grid
.ClearFields
.Columns(0).Width = 500 'Cta1
.Columns(0).Caption = "Cta1"
.Columns(1).Width = 500
.Columns(1).Caption = "Cta2"
.Columns(2).Width = 500
.Columns(2).Caption = "Cta3"
.Columns(3).Width = 700
.Columns(3).Caption = "Cta4"
End With
End Sub

Si quieres ocultar una columna pon el valor de 0 a
.Columns(col).Width = 0

Saludos desde Lima