Código SQL [-] Insert into Tabla_Destino (Campo1, Campo2, Campo3....) Select Campo1, Campo2, Campo3 From Tabla_Origen Where Fecha =QuotedStr(FormatDateTime('mm/dd/yyyy', DateTimePicker1.Date)) And Proveedor = QuotedStr(Combobox1.Text)
Insert into Tabla_Destino (Campo1, Campo2, Campo3....) Select Campo1, Campo2, Campo3 From Tabla_Origen Where Fecha =QuotedStr(FormatDateTime('mm/dd/yyyy', DateTimePicker1.Date)) And Proveedor = QuotedStr(Combobox1.Text)