imprimir y actualizar con datareport

[analoyra]

Antes que nada Feliz dia!! para todos los trabajadores del foro!!
De nuevo yo, haciendo consultas ...
el tema es que hago un formulario que relleno, por ahora, solo el encabezado de una factura. cuando presiono un button deberia por un lado cargar la base de datos y por el otro o mandar a imprimir o ver la previsualizacion, pero me carga la base, pero no me muestra nada hasta que salgo y entro del programa.
Aqui posteo lo que hice
Private Sub CmdImprimir_Click()
Call Conecta
Rs.Open "select * from compcompra", cn, adOpenDynamic, adLockOptimistic
If Rs.EOF Or Rs.BOF Then
MsgBox ("Tabla sin registros!")
Else
Rs.AddNew
Rs(0) = FrmCompra.TxtNumComp.Text
Rs(1) = FrmCompra.DTPicker1.Value
Rs(2) = FrmCompra.TxtSuc.Text
Rs(3) = FrmCompra.Txttipo.Text
Rs.Update
Rs.Close
MsgBox ("Alta Confirmada")
TxtNumComp.Text = ""
TxtSuc.Text = ""
Txttipo.Text = ""
DataEnvironment1.Command2 Format(Val(Me.TxtNumComp.Text), "00000000")
DataReport2.Show
DataReport2.Refresh
'DataReport2.PrintReport
End If
End Sub

si a alguien se le ocurre una idea..... Bienvenido!!

[Avellaneda]

Hola,

prueba sustituyendo rs.Close por rs.Requery y pones el rs.Close después de la instrucción End If.

Un saludo.

[analoyra]

No, se comporta de la misma manera..... . Alguna otra sugerencia?? por favor..
saludos

[fede_rosario]

yo lo que hago es un insert into y no necesitas update y ademas es mucho mas rapido no algo asi
sql="insert into tabla (campo,campo1,campo2,campo3)" & _
"values('" & txtumcomp & "','" & txtumcomp & "')...bueno y asi con los demas objetos

[analoyra]

Igualmente no me actualiza a la velocidad que necesito, hay alguna manera de mostrar los datos del form con el data report? en vez que los busque en la tabla
gracias

[analoyra]

Solucionado!! lo que paso es que limpiaba los campos antes de cargar el enviroment.
gracias a todos los que colaboraron.