como actualizar datagrid??

[Say_No_More]

sigue sin funcionar... la conceccion es mediante dataenviorment.
les paso el codigo:
en el form1 (frmfic)
Private Sub Command1_Click()
load frmagregarPREST
frmagregarPREST.lblapellido.Caption = frmfic.lblapellido.Caption
frmagregarPREST.lblnombre.Caption = frmfic.lblnombre.Caption
frmagregarPREST.LBLIDPAC.Caption = frmfic.txtidPAC.Text
frmagregarPREST.lblos.Caption = frmfic.lblos.Caption
frmagregarPREST.lblcobertura.Caption = frmfic.lblcobertura.Caption
frmagregarPREST.lblnumero.Caption = frmfic.lblnumero.Caption
Unload Me
frmagregarPREST.Show
Me.Hide

End Sub



Private Sub Form_Load()
Set DG1.DataSource = Dataconsul
DG1.DataMember = "vficha"
End Sub-------------------------------------------------------------------------
en el form2 (frmagregarprestaciones)

Private Sub Command1_Click()

Dataconsul.rstFicha.AddNew
txtCODIGO.SetFocus
txtidPAC.Text = Text1.Text
meditA True

End Sub

Private Sub Command2_Click()
Dataconsul.rstFicha.Update
meditA False
frmfic.DG1.Refresh

End Sub

Private Sub Command3_Click()
load frmfic
frmfic.lblapellido.Caption = frmagregarPREST.lblapellido.Caption
frmfic.lblnombre.Caption = frmagregarPREST.lblnombre.Caption
frmfic.lblos.Caption = frmagregarPREST.lblos.Caption
frmfic.lblcobertura.Caption = frmagregarPREST.lblcobertura.Caption
frmfic.lblnumero.Caption = frmagregarPREST.lblnumero.Caption
frmfic.txtidPAC.Text = frmagregarPREST.LBLIDPAC.Caption
frmfic.DG1.Refresh
Unload frmagregarPREST
frmagregarPREST.Hide
frmfic.Show
End Sub------------------------------------------------------------------------