Problema con SSDBGRID "URGENTE"

[LS05]

Tengo un problema con un grid que me esta bloqueando toda la columna y lo que yo quiero es que nada mas me bloque la columna y el renglon en el que va mi contador, no todo el renglon si no la Columna (3) pero nada mas de el renglon en donde entra al IF

grdMaterias.MoveFirst
For intCont = 0 To grdMaterias.Rows
strQuery = vbNullString
strQuery = strQuery & " sp_sl_SinDerecho "
strQuery = strQuery & "'" & txtAlumno.Text & "',"
strQuery = strQuery & "'" & grdMaterias.Columns(0).Text & "'"
Call AbreRS(rsBuscar, strQuery)
If rsBuscar.RecordCount = 1 Then
grdMaterias.Columns(3).Locked = True <--- Aqui esta el PROBLEMA
End If
grdMaterias.MoveNext
Next


Me BLOQUEA TODA LA COLUMNA, por favor si me pueden ayudar se los agradeceria mucho Saludos y CUIDENSE bye GRACIAS