Lo he resuelto
solo necesite actualizar el grid una vez mas y realizar la busqueda ahora pongo el codigo para quien le sirva:
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.Requery
dgdProfesores.Datamember = "qryProfesores"
dteControlEscolar.rsqryProfesores.Find "ClaveProfesor = '" & strParametro & "'", , , 1
dgdProfesores.SelBookmarks.Add dteControlEscolar.rsqryProfesores.Bookmark
'FIN DE OPTIMIZAR CÓDIGO
End Sub