Como cierro la conexion de un ADODC cuando cierro mi programa.

Muchas gracias

Antes de eso, deberás asegurarte de tener también cerrados todos los recordset relacionados con esa conexión.

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

J.M.Movilla, Yo estoy usando esto pero no me sirbe.

On Error Resume Next
rsMov.Close
rsTemp.Close
rsnuevo.Close
Conex.Execute "DROP TABLE Temporal"
Conex.Close
Set rsMov = Nothing
Set rsTemp = Nothing
Set rsnuevo = Nothing

Pues creo que lo único que te falta es liberar la memoria, con
Set Conex = Nothing

Y no sé cómo es posible que se mantenga abierta esa conexión cuando cierras tu aplicación, si tras cerrar los recordsets y la conexión, utilizas un End...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

J.M.Movilla, Que tal, hace un tiempo me pasastes un codigo que
me a sido muy practico. una consulta siempre que me despliega datos en
en la rejilla con una fecha me la pone al reves mm/dd/yyyy.

On Error Resume Next
Conex.Execute "DROP TABLE Temporal"
On Error GoTo 0
Conex.Execute "CREATE TABLE Temporal (Fecha DATE, Codigo TEXT(50), Pedido TEXT(15), Cliente TEXT(50), Cantidad TEXT(20), Producto TEXT(80), Precio TEXT(20))"
With rsTemp
.Open "Select * from Temporal order by Pedido", Conex, adOpenStatic, adLockOptimistic
Do While Not rsMov.EOF
.AddNew
.Fields("Fecha") = rsMov!Fecha
.Fields("Codigo") = rsMov!Codigo
.Fields("Pedido") = rsMov!Pedido
.Fields("Cliente") = rsMov!Cliente
.Fields("Cantidad") = rsMov!kg1
.Fields("Producto") = rsMov!Producto1
.Fields("Precio") = rsMov!Precio1
.Update

Saludos