IBMDA400 data connection hangs

[Danno]

I have a vb.net program that calls an AS400 program using the IBMDA400 data provider in the connection string:
Provider=IBMDA400.DataSource.1;Data Source=s1034faa;Persist Security Info=True;User ID=xxxxxxxx;Password=xxxxxxxx


This seems to work correctly and connects to the AS400. The job can be found in the WRKACTJOB screen on the AS400.

Subsystem/Job User Type CPU % Function Status
QZDASOINIT DCOMPERINI PJ .1 DLY-17 DLYW
Dim recon As New OleDb.OleDbConnection(My.Settings.As400Conn2)

Try
recon.Open()
Using recom As New OleDb.OleDbCommand("CALL AFGOBJST.UPL103CT", recon)
recom.ExecuteNonQuery()
End Using

recon.Close()
recon.Dispose()

After calling the AS400, the connection is closed and disposed:


The problem is the connection to the AS400 remains active. Only after the program ends does this connection go away. I do not want this program to end rather it should loop in a timer cycle.

The connection only terminates when the program terminates. Why would the .close and .dispose not terminate this connection? Any suggestions?

Thanks,
Daniel Comperini