Seleccionar registro en Datagrid mediante paso de parametro

[juanutcm]

Hola a todos mi cuestion es la siguiente:

Tengo un datagrid en los que se cargan los datos (por ejemplo: Profesores) mediante una consulta realizada con un comando en un dataenvironment

Código:

    dteControlEscolar.rsqryProfesores.Open
    dteControlEscolar.rsqryProfesores.Requery
    dgdProfesores.DataMember = "qryProfesores"

Bien ahora tengo un formulario independiente encargado de realizar busquedas avanzadas de los profesores y cuando se selecciona un registro se le pasa un parametro(ClaveProfesor) a un sub de formulario que lo mando llamar encargado de seleccionar el registro encontrado en el datagrid:

Código:

Sub doBuscarRegistro(strParametro)
'INICIO DE OPTIMIZAR CÓDIGO
    'adoProfesores.Recordset.Requery
    dteControlEscolar.rsqryProfesores.Requery
 
    dteControlEscolar.Commands.Item("qryBusquedaProfesor").Parameters.Item("ClaveProfesor").Value = strParametro
 
    dteControlEscolar.rsqryBusquedaProfesor.Open
    dteControlEscolar.rsqryBusquedaProfesor.Requery
 
    txtClaveProfesor.Text = dteControlEscolar.rsqryBusquedaProfesor!ClaveProfesor
    txtNombrePila.Text = dteControlEscolar.rsqryBusquedaProfesor!NombrePila
    txtApellidoPaterno.Text = dteControlEscolar.rsqryBusquedaProfesor!ApellidoPaterno
    txtApellidoMaterno.Text = dteControlEscolar.rsqryBusquedaProfesor!ApellidoMaterno
    cboSexo.Text = dteControlEscolar.rsqryBusquedaProfesor!Sexo
    txtProfesion.Text = dteControlEscolar.rsqryBusquedaProfesor!Profesion
    txtDomicilio.Text = dteControlEscolar.rsqryBusquedaProfesor!Domicilio
    txtColonia.Text = dteControlEscolar.rsqryBusquedaProfesor!Colonia
    txtCiudad.Text = dteControlEscolar.rsqryBusquedaProfesor!Ciudad
    cboEstado.Text = dteControlEscolar.rsqryBusquedaProfesor!Estado
    txtCodigoPostal.Text = dteControlEscolar.rsqryBusquedaProfesor!CodigoPostal
    txtTelefono.Text = dteControlEscolar.rsqryBusquedaProfesor!Telefono
    Set Ffound = CreateObject("Scripting.FileSystemObject") 'Crear el objeto para verificar la existencia del archivo
 
    strRutaFotografiaDefault = "C:\Archivos de programa\SoftwareSICE\Imagenes\Fotografias\imgDefault.jpg" 'Asignar ruta de la imagen default
    blnResultado = Ffound.fileexists(dteControlEscolar.rsqryBusquedaProfesor!RutaFotografiaProfesor) 'Variable que almacena si existe o no la base de datos
 
    If blnResultado = True Then 'Validar la existencia del archivo
      pctrFotografiaProfesor.Picture = LoadPicture(dteControlEscolar.rsqryBusquedaProfesor!RutaFotografiaProfesor) 'Asignar el contenido del Recordset al control
    Else
      pctrFotografiaProfesor.Picture = LoadPicture(strRutaFotografiaDefault) 'Asignar imagen Default al control
    End If 'Find evalidar la existencia del archivo
 
    dteControlEscolar.rsqryBusquedaProfesor.Close
 
    If dgdProfesores.SelBookmarks.Count <> 0 Then
        dgdProfesores.SelBookmarks.Remove 0
    End If
 
    dteControlEscolar.rsqryProfesores.Find "ClaveProfesor = '" & strParametro & "'", , , 1
    dgdProfesores.SelBookmarks.Add dteControlEscolar.rsqryProfesores.Bookmark
 
'FIN DE OPTIMIZAR CÓDIGO
End Sub

Aqui en estas lineas se selecciona el registro en el datagrid:

Código:

 
dteControlEscolar.rsqryProfesores.Find "ClaveProfesor = '" & strParametro & "'", , , 1
    dgdProfesores.SelBookmarks.Add dteControlEscolar.rsqryProfesores.Bookmark

El punto en cuestion aqui es que si selecciona el registro en el datagrid pero la flechita que aparece a la izquierda del datagrid se queda al comienzo del datagrid como puedo hacer para que la flechita se baya a donde se selecciono el registro.

Desde ahora muchas gracias... por las aportaciones