Fechar conexão no subformulário SQL

tenho esse codigo abaixo onde carrego uma consulta no subformulário, mas não consigo arrumar uma forma de fechar a consulta a tabela permanece aberta para listbox consigo de boa mas para subformulário to quebrando cabeça

os comentários estão na instrução

Código:

Dim conexao As New Cls_Conexao

Dim strSql As String

strSql = "SELECT veiculos.CODIGO, veiculos.[PLACA CARRETA], veiculos.[PLACA CAVALO], veiculos.TRANSPORTADORA, veiculos.FORNECEDOR, veiculos.[DESTINO INTERNO], " & _
"veiculos.DATA_HORA_PORT_CHEG, veiculos.DATA_HORA_ENTR, veiculos.DATA_HORA_EXP_ENTR, veiculos.DATA_HORA_EXP_SAID, veiculos.DATA_HORA_REC_ENTR, " & _
"veiculos.DATA_HORA_REC_SAID, veiculos.DATA_HORA_PORT_SAID, PrimUlt([Motorista]) AS MotoristaCarga, Now() AS Data_agora, DateDiff('n',[Data_agora], " & _
"[Ref_Programa]) AS CalcMin, IIf([DESTINO INTERNO]='RECEBIMENTO',[DATA_HORA_ENTR]+#12/30/1899 0:30:0#,[DATA_HORA_ENTR]+#12/30/1899 1:10:0#) AS Ref_Programa, " & _
"IIf([PorcResul]>=0.8,'VERMELHO',IIf([PorcResul]>=0.5,'AMARELO',IIf([PorcResul]<0.5,'VERDE','VERMELHO'))) AS Semaforo, " & _
"IIf([Semaforo]='Vermelho',1,0) AS SemaforoVermelho, IIf([Semaforo]='Amarelo',1,0) AS SemaforoAmarelo, IIf([Semaforo]='Verde',1,0) AS SemaforoVerde, veiculos.BAIXAR,  " & _
"veiculos.BAIXAR_3, (mintotime([CalcMinTT])) AS TempoTT, IIf([calcmin]>=0,mintotime([CalcMin]),IIf([CalcMin]<0 And [CalcMin]<-59,mintotime([CalcMin]),'-' & mintotime([CalcMin]))) AS Prazo,  " & _
"Round(DateDiff('n',[DATA_HORA_ENTR],[Data_agora])) AS CalcMinTT, IIf([Destino Interno]='RECEBIMENTO',30,70) AS TempoRef, ([CalcMinTT]/[TempoRef]) AS PorcResul, veiculos.BAIXAR_2,  " & _
"veiculos.BAIXAR_4, IIf([Destino Interno]='RECEBIMENTO' And [BAIXAR_4]=True,'PORTARIA OUT',  " & _
"IIf([Destino Interno]='RECEBIMENTO' And [BAIXAR_4]=False,'RECEBIMENTO',IIf([Destino Interno]='EXPEDIÇÃO' And [BAIXAR_2]=True,'PORTARIA OUT', " & _
"IIf([Destino Interno]='EXPEDIÇÃO' And [BAIXAR_2]=False,'EXPEDIÇÃO')))) AS Localizacao " & _
"FROM veiculos " & _
"WHERE (((veiculos.[DESTINO INTERNO]) Like [Forms]![frm_Lead_Time_Painel].[txtArea] & '*') AND ((veiculos.BAIXAR)=True) AND ((veiculos.BAIXAR_3)=False))" & _
"ORDER BY veiculos.CODIGO;"

'Aquiexecuta normal
Forms!frm_Lead_Time_Painel!frm_Lead_Time_Painel_sub.Form.RecordSource = strSql


'Aqui não executa e nem fecha a conexão no recordsource
'ja tentei referenciar ao subformulario de várias maneiras

conexao.Abrir_Conexao
conexao.Executar_Data_Reader (strSql)
Set Form.RecordSource = Nothing
Set Form.RecordSource = conexao.Fechar_Data_Reader
conexao.data_reader


'Do tipo lista funfa bacana no recordset

'conexao.Abrir_Conexao
'
'conexao.Executar_Data_Reader (strSql)
'
'Set List_Pedido.Recordset = Nothing
'Set List_Pedido.Recordset = conexao.data_reader
'
'conexao.Fechar_Data_Reader

Olá

Tenta assim:

Código:

Set conexao = Nothing
If CBool(conexao.state And adStateOpen) Then conexao.Close

Saludos

deu não franklin

meu problema é no recordset só funciona no recordsource

e os dados devem aparecer no sub formulário mas também não consegui

justamente nessa parte aqui:

'conexao.Abrir_Conexao
'
'conexao.Executar_Data_Reader (strSql)
'
'Set frm_Lead_Time_Painel_sub.Recordset = Nothing
'Set frm_Lead_Time_Painel_sub.Recordset = conexao.data_reader
'
'conexao.Fechar_Data_Reader

desse jeito executa e funciona normal mas não sei fechar a conexão

Forms!frm_Lead_Time_Painel!frm_Lead_Time_Painel_sub.Form.RecordSource = strSql

up