Visual Basic - AYUDA CON BOTON GUARDAR

HEY Q TAL NECESITO URGENTE AYUDA!!!! TENGO CONECTADA LA BD CON ADO 6.0 Y EL PROBLEMA Q TENGO ES Q A LA HORA DE GUARDAR ME DA UN ERROR DE Q L OBJETO (EL RECORDSET) TIENE Q ESTAR CERRADO, A CONTINUACION MUESTRO EL CODIGO:
With VAR2
.AddNew
.Fields("codorga") = Text1.Text
.Fields("nomorga") = Text2.Text
.Fields("weborga") = Text3.Text
.Fields("telforga") = Text4.Text
.Fields("email") = Text5.Text
.Fields("numpasaporte") = DataCombo3.BoundText
.Update

End With
este es l q utilizo para q me guarde claro lo esencial si alguin m puede ayudar! gracias!

cuando lo vayas a utlizar pon siempre esta
Public Rs As ADODB.Recordset
'preguntas si esta abierto si lo esta continua y sino lo cierra.
If Rs.State = adStateOpen Then Rs.Close

Miguel muchas Gracias ya el problema esta resuelto! de nuevo, MUCHAS GRACIAS!!!!!