Runtime error(80040e14) (1 Viewer)

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim sid, bname, qty As String

Private Sub cboSupid_Click()
    sid = cboSupid.Text
 
    rs1.Open "select * from Supplier_details where Supplier_id=('" & sid & "')", con, adOpenKeyset, adLockOptimistic
    rs1.MoveFirst
 
    While (rs1.EOF <> True)
        If (rs1(0) = sid) Then
            lblSupdisp.Caption = (rs1("Supplier_name"))
 
        End If
        rs1.MoveNext
    Wend
 
    rs1.Close
End Sub
 
Private Sub cmdAdd_Click()
    enablerec
    clearrec
    txtOrderid.SetFocus
    MsgBox "You can add new order", vbOKOnly
End Sub
 
Private Sub cmdCancel_Click()
    clearrec
End Sub
 
Private Sub cmdDelete_Click()
    rs.Delete
    clearrec
    MsgBox "One record is deleted", vbOKOnly
End Sub
 
 
Private Sub cmdEnter_Click()
    rs1.Open "SELECT * FROM Order_details where Supplier_order_id=(' " & txtOrderid.Text & " ') Bookname=(' " & txtBname.Text & " ') Quantity=(' " & txtQuantity.Text & " '), con, adOpenDynamic, adLockPessimistic"
    Set res1 = New ADODB.Recordset
    rs1.AddNew
    rs1("Supplier_order_id") = txtOrderid.Text
    rs1("Bookname") = txtBname.Text
    rs1("Quantity") = txtQuantity.Text
    rs1.Update
    MsgBox "Record is saved", vbOKOnly + vbInformation
End Sub
 
Private Sub cmdExit_Click()
    Unload Me
End Sub
 
Private Sub cmdSave_Click()
    Set res = New ADODB.Recordset
    'rs.Open "SELECT * FROM Supplier_order_details", con, adOpenDynamic, adLockOptimistic
    'rs1.Open "SELECT * FROM Order_details", con, adOpenDynamic, adLockOptimistic
 
 
    rs.AddNew
    'rs1.AddNew
 
    rs("Supp_order_date") = DTPicker1.Value
    rs("Supplier_order_id") = txtOrderid.Text
    rs("Supplier_id") = cboSupid.Text
    rs("Supplier_name") = lblSupdisp.Caption
    'rs("Bookname") = txtBname.Text
    rs("Publication") = txtPublication.Text
    'rs("Quantity") = txtQuantity.Text
    rs.Update
 
 
    'rs1("Supplier_order_id") = txtOrderid.Text
    'rs1("Bookname") = txtBname.Text
    'rs1("Quantity") = txtQuantity.Text
    'rs1.Update
 
    'rs.Close
    'rs1.Close
 
    'Set rs1 = New ADODB.Recordset
    'rs1.Open "SELECT * FROM Order_details"
    'rs1.AddNew
    'rs1(0) = txtOrderid.Text
    'rs1(1) = txtBname.Text
    'rs1(2) = txtQuantity.Text
    'rs1.Update
    'MsgBox "Record is saved", vbOKOnly + vbInformation
End Sub
 
Private Sub Form_Load()
    Dim rs1 As New ADODB.Recordset
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    con.Provider = "Microsoft.Jet.OLEDB.4.0"
    con.Open App.Path & "\Bookshop.mdb"
    rs.ActiveConnection = con
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Open "SELECT * FROM Supplier_order_details"
 
    Set rs1 = New ADODB.Recordset
    rs1.ActiveConnection = con
    rs1.CursorLocation = adUseClient
    rs1.CursorType = adOpenDynamic
    rs1.LockType = adLockOptimistic
    rs1.Open "SELECT * FROM Order_details"
 
 
 
 
    Set DataGrid1.DataSource = rs1
End Sub