قطع كردن كانكش كه ساخته ايم.
فراموش كردم داخل پست قبلي بگذارم.
Public Sub disconnect()

On Error GoTo ex

cn.Close

Set cn = Nothing

ex:



End Sub

فايلي را هم كه ارسال كرديد دارم روش كار مي كنم.