How to add parameters of date() as aceess data base in visual basic

Private Sub MOD_SUB_DATa1()
      grp_invwise.Visible = False
      grp_datewise.Visible = False
      grp_partywise.Visible = False
      If MOD_SUB = 1 Then
          access.addparam("@INVNO", txt_mod_inv_start.Text)
            access.Execquery(" select INVOICE_NO,INVOICE_DATE,PARTY_NAME,INVOICE_AMOUNT_tax,IGST_TAX,CGST_TAX,SGST_TAX,sl_trancode,ID from invoice WHERE INVOICE_NO=@INVNO ")
          If noerrors(True) = False Then MsgBox(access.Exception) : Exit Sub
          dgv_sl.DataSource = access.dbdt

      End If
      If MOD_SUB = 2 Then
          access.addparam1("@INVNO", DateTimePicker1.Value)
          access.Execquery("select INVOICE_NO,INVOICE_DATE,PARTY_NAME,INVOICE_AMOUNT_tax,IGST_TAX,CGST_TAX,SGST_TAX,sl_trancode,ID from invoice WHERE INVOICE_DATE=@INVNO ")
          If noerrors(True) = False Then MsgBox(access.Exception) : Exit Sub
          dgv_sl.DataSource = access.dbdt
      End If
  End Sub