Error 3705 Urgente

[natalyro]

hola.... Porfa necesito que me ayuden con el siguiente error:

Error 3705 operation is not allowed when the object is open.

Porfavor es Urgente el que me pueda ayudar se lo agradeceria.
Aqui envio una parte del codigo:

Private Sub Cargar() ' Aqui esta la conexion y el llenado de combox

Dim CantReg As Variant

Connect.Provider = "SQLOLEDB"
Connect.Open "Driver={SQL Server};" & _
"Server=" & macForm.ConnInfo.Server & _
";Uid=" & macForm.ConnInfo.User & _
";Pwd=" & macForm.ConnInfo.pwd & _
";Database=" & macForm.ConnInfo.DB

Set Rsl = New ADODB.Recordset
Set Rs2 = New ADODB.Recordset

Cadena_SQL = "SELECT COUNT(*) as cus_name FROM OECOTIZACION_SQL"
Cadena_SQL_2 = "SELECT * FROM OECOTIZACION_SQL"

Rsl.Open Cadena_SQL, Connect, adOpenDynamic, adLockPessimistic
Rs2.Open Cadena_SQL_2, Connect, adOpenDynamic, adLockPessimistic

CantReg = Rsl.Fields("cus_name")

Rs2.MoveFirst

For i = 0 To CantReg - 1
Combo_Cliente.AddItem Rs2.Fields("cus_name")
Rs2.MoveNext

Next i

End Sub

y este es el que me adiciona:


Private Sub Cmd_Aceptar_Click()

'Fra_Funciones.Visible = True
'Fra_Adicionar.Visible = False

Rs2.AddNew
Rs2.Fields("cot_date") = Text_Fecha.Text
Rs2.Fields("cot_number") = Text_Id.Text
Rs2.Fields("cus_name") = Combo_Cliente.Text
Rs2.Fields("item_no") = Text_Producto.Text
Rs2.Fields("search_desc") = Text_Product.Text
Rs2.Fields("Especific_prod") = Text_Especific.Text
Rs2.Fields("item_desc_2") = Text_Presentacion.Text
Rs2.Fields("qty_prod") = Text_Cantidad.Text
Rs2.Fields("prc_or_disc_1") = Text_Precio.Text
Rs2.Fields("end_prc") = Text_Validez.Text
Rs2.Fields("pay_term") = Combo_terminos.Text
Rs2.Fields("addr_1") = Text_Direccion.Text
Rs2.Fields("lead_time") = Text_Reque.Text
Rs2.Fields("cot_sales") = Combo_Vendedor.Text
Rs2.Fields("cot_Observ") = Text_Observ.Text

Cargar

End Sub