Если Rs.State = 1 после этого Rs.Close
Rs.Open «отборное Invo_Dtl.Invo_No, Invo_Dtl.Invo_Date как _Invo_Date_, Invo_Dtl.Invo_From как _From, Invo_Dtl.Invo_To как _To, Invo_Dtl.Invo_Truck_No как Truck_No, Invo_Dtl.Invo_TP_No как TP_No, Invo_Dtl.Invo_TP_Date как TP_Date, Invo_Dtl.Invo_Amount как Net_Amount, Invo_Dtl.Invo_Load как _Loading, Invo_Dtl.Invo_Insu как страхсбор, Invo_Dtl.Invo_Vat_Cst как VAT_CST, Invo_Dtl.Invo_Total от Invo_Dtl где >=# Invo_Dtl.Invo_Date» & DTPicker1.Value & «# и Invo_Dtl.Invo_Date <> 0 после этого
Установите DataGrid1.DataSource = Rs
|