Visual Basic - No me actualiza el MSHFlexGrid con un ADODC

Estoy usando un MSHFlexGrid con un ADODC y cuando actualizo los datos del adodc no se me refrescan los datos de la grilla. Si yo llamo desde el botón que busca a la función para actualizar los datos de la grilla los datos del MSHFlexGrid se refrescan pero si yo llamo a esa misma función desde donde estoy actualizando los datos la grilla no se refrescan. Alguien tiene idea porque me pasa esto o como hacer para solucionarlo?

Funcion que actualiza:

Sub ActualizarGrilla()
On Error GoTo ActualizarGrilla_Err

Screen.MousePointer = vbHourglass
sSQL = "SELECT Usuario, Apellido_Usuario, Nombre_Usuario, Permiso_Usuario "
sSQL = sSQL & "FROM Usuarios WHERE Activo_Usuario = " & CVnx(xTxt_Activo) & " "
If sTxt_Usuario <> "" Then
sSQL = sSQL & "AND Usuario Like '%" & CVne(sTxt_Usuario) & "%' "
End If
Ado_Usuarios.ConnectionString = sCon
Ado_Usuarios.RecordSource = sSQL
Ado_Usuarios.Refresh
Set Grd_Usuario.DataSource = Ado_Usuarios
Grd_Usuario.Refresh

ActualizarGrilla_Exit:
Screen.MousePointer = vbArrow
Exit Sub
ActualizarGrilla_Err:
MostrarError "ActualizarGrilla"
Resume ActualizarGrilla_Exit
End Sub