Para que te funcione el bloqueo de las columas 0, 1 y 3, puedes hacerlo de dos
formas:

1. En tiempo de diseño

Una vez que has puesto en la propiedad RecordSource del control Data la
expresion SQL (Select) respectiva y has conectado el DBGrid con el control
Data, selecciona el DBGrid y sobre el presiona el boton derecho del mouse y
escoge la opcion "Recuperar campos", luego sobre el mismo menu contextual
escoges Propiedades..., Pestaña Diseño (Layout), luego escoge las columnas que
quieres bloquear y marcalas Locked.

2. En tiempo de ejeucion

Para bloquear las columnas 0, 1 y 3 tienes que crear tres variables de objeto
Column que representan los campos, luego es posible manipular sus propiedades
(Locked, Caption, etc)

Incluye este codigo dentro del formulario (Evento Activate):

Private Sub Form_Activate()

Dim Columna0 As Column
Dim Colunma1 As Column
Dim Columna3 As Column

Set Columna0 = DBGrid1.Columns(0)
Set Columna1 = DBGrid1.Columns(1)
Set Columna3 = DBGrid1.Columns(3)

Columna0.Locked = True
Columna1.Locked = True
Columna3.Locked = True

End Sub

Cualquiera de los dos metodos tienen el mismo efecto

Armando Muñoz
armu96@amauta.rcp.net.pe
Lima - Perú