importação de tabela

[lcorreio 0]

lote cliente parc dt1 dt2 dt3 dt4 dt5 dt600001 DINERS 5 16/05/2006 16/06/2006 17/07/2006 18/08/2006 18/09/2006 00002 AMERIC 12 14/06/2006 17/07/2006 15/08/2006 18/09/2006 17/10/2006 17/11/2006 00003 MASTER 10 06/09/2006 09/10/2006 07/11/2006 11/12/2006 09/01/2007 09/02/200700004 VISA 11 27/11/2006 26/12/2006 26/01/2007 27/02/2007 30/03/2007 30/04/2007 00005 VISA 12 25/04/2006 26/05/2006 26/06/2006 28/07/2006 28/08/2006 28/09/200600006 VISA 4 30/06/2006 31/07/2006 31/08/2006 02/10/2006 00007 MASTER 12 21/07/2006 21/08/2006 21/09/2006 23/10/2006 23/11/2006 25/12/200600008 MASTER 12 27/02/2006 28/03/2006 28/04/2006 30/05/2006 30/06/2006 31/07/2006 00009 VISA 10 14/04/2006 15/05/2006 15/06/2006 17/07/2006 17/08/2006 18/09/200600010 DINERS 5 16/05/2006 16/06/2006 17/07/2006 18/08/2006 18/09/2006 tenho uma tabela acima em access (tblRelatorio) com os campos dt1 a dt6 sendo datasGostaria de inserir em outra tabela access (tblpesquisa) os dados que cuja data estivesse entre um textbox1 e um textbox2 em um form vb6. Por exemplo: se digito nos textbox a data entre 27/02/2006 a 30/03/2006 só seriam copiados para a tabela (tblpesquisa) os dados referentes ao lote 8, 4 da tabela (tblRelatorio)no modulo do vb6 eu tenho as seguintes instruções:Option ExplicitPublic con As ADODB.ConnectionPublic rs As ADODB.RecordsetSub connect()Set con = CreateObject("ADODB.Connection")Set rs = CreateObject("ADODB.Recordset")con.Open "Provider = microsoft.jet.oledb.4.0;data source = " & App.Path & "\bdktel.mdb"rs.CursorLocation = adUseClientEnd SubTentei usar a instrução sql “insert into” mas o resultado volta com dados duplicadosagradeço a colaboraçãoluiz

[Luizgrs 0]

Dá uma olhada nesse artigo:

http://www.imasters.com.br/artigo.php?cn=3055&cc=189

 

Na parte 'Copiando Linhas de Outras Tabelas'