Visual Basic - Msflexgrid

Necesito refrescar automaticamente con un MSflexgrid alguien sabe por que no me lo ejecuta con un DATA1.refresh

tb4.MoveLast
tb4.AddNew
tb4("iva") = tb2("iva")
tb4("fact") = Label14.Caption
tb4("codigo") = tb2("codigo")
tb4("cantidad") = Text4
tb4("descripcion") = tb2("descripcio")
tb4("costes") = tb2("coste")
tb4("venta") = Text5 * Text4
tb4("fecha") = fecha
tb4.Update
tb4.Index = "indfact"
Text4 = 1

Data1.RecordSource = "select iva, cantidad, descripcion, venta from presventas where fact =" + Str(Label14) + ""
Data1.Refresh

trata con msflexgrid.refresh