Prova a fare un refresh

Private Sub b_cercaok_Click()
Set MSHFlexGrid1.DataSource = RS
MSHFlexGrid1.refresh
End Sub