Se Rs.State = 1 então Rs.Close
Rs.Open “Invo_Dtl.Invo_No seleto, Invo_Dtl.Invo_Date como o _Invo_Date_, Invo_Dtl.Invo_From como o _From, Invo_Dtl.Invo_To como o _To, Invo_Dtl.Invo_Truck_No como Truck_No, Invo_Dtl.Invo_TP_No como TP_No, Invo_Dtl.Invo_TP_Date como TP_Date, Invo_Dtl.Invo_Amount como Net_Amount, Invo_Dtl.Invo_Load como _Loading, Invo_Dtl.Invo_Insu como o seguro, Invo_Dtl.Invo_Vat_Cst como VAT_CST, Invo_Dtl.Invo_Total de Invo_Dtl onde >=# de Invo_Dtl.Invo_Date” & DTPicker1.Value & “# e Invo_Dtl.Invo_Date <> 0 então
Ajustar DataGrid1.DataSource = Rs
|