Visual Basic - probelma al mostrar datos en datagrid

hola... necesito grabar los datos y que se muestren en el datagrid....
los graba bien pero no los muestra en el datagrid y solo lo hace cuando cerro el formulario y lo cargo nuevamente... agradeceria si me pueden indicar cual es el error ya que he tratado de solucianarlo pero no lo encuentro, el codigo es:

Private Sub Command1_Click()

Dim varbase As Database
Dim varreg As Recordset
Dim data As String

Set varbase = OpenDatabase("C:Documents and SettingsROBERTO GODOYMis documentosVideoClub1.mdb")
Set varreg = varbase.OpenRecordset("Temporal")
varreg.AddNew

varreg!Codigo_Pelicula = Text2.Text
varreg!Nombre = Label6.Caption
varreg!Fecha_Arriendo = Label8.Caption
varreg!Fecha_Entrega = DTPicker1.Value
varreg!Valor_Arriendo = Label12.Caption

varreg.Update
Adodc1.Refresh
Form5.Refresh

End Sub

Y porqué abres una nueva conexón y un recordset (además DAO, cuando Adodc1 es un control Data de ADO)?

¿Porqué no trabajas directamente con el control Adodc y con el DataGrid?

Adodc1.Recordset.AddNew
DataGrid1.SetFocus
DataGrid1.Col = 0
DataGrid1.Text = UnaVariable
DataGrid1.col = 1
DataGrid1-Text = OtraVariable
etc....
Adodc1.Recordset.Update

Claro, dando por hecho ue la propiedad AllowAddNew del DataGrid la tienes a True.