[LogicTricks]

hello guys , im trying to open multiple recordset but how can i close the other one ?
When i try to debug the error pointing at rs3.Open query, cn, adOpenDynamic, adLockPessimistic(BOLD)

ElseIf Index = 2 Then
If MsgBox("Save The Product?", vbQuestion + vbYesNo, "Message") = vbNo Then: Exit Sub
query = "Insert into ProductLabel(ProductId,ProductName,Category,SubCategory,Supplier,Ceiling,Flooring,Reorder,Critical,Markup,Price)Values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1(0).Text & "','" & Combo1(1).Text & "','" & Combo1(2).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text & "','" & Text1(8).Text & "','" & Text1(9).Text & "','" & Text1(10).Text & "');"
'
'" & Combo3.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "');"
[b]rs3.Open query, cn, adOpenDynamic, adLockPessimistic[/b]
Textclear
Frame15.Visible = True
Timer1.Enabled = True

[Martyr2]

I can only assume from your error that you used rs3 before and you are trying to open a new query with it. Remember, after opening it and running your query, you close it using close() before you can reopen it with a new query.

rs.Open ...
rs.Close()

' Now reopen with another query
rs.Open ...

Hope this helps.

[LogicTricks]

its ok now , thank you ...

[BobRodes]

Also, don't use a recordset when you're doing an insert. Recordsets are the result of select queries. You're not trying to retrieve any data, you're trying to insert data. Use a command object.