ตอนนี้ผมเขียน vb บน visual studio community 2019 ครับปัญหาที่เจอคือ ถ้า network disconnect ไป มันจะขึ้น error ORA-03135

..แต่ตอน network กลับมา connect ใหม่ อีกครั้งสั่ง connect ซ้ำไปมันยัง ขึ้น error ORA-03135 อยู่ ต้องปิดโปรแกรมแล้วเปิดใหม่ถึงหาย

จะทำยังไงได้บ้างครับโดยที่ไม่ต้องปิดโปรแกรมแล้วเปิดใหม่

ขอบคุณครับ

code เขียนแบบนี้ครับ 

Private Sub Get_Last_Activity()
Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=oradb)(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=myora)));User Id=test;Password=test;"
Dim conn As New OracleConnection(oradb)
Dim str(3) As String
Dim room As String
conn.Open()
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "SELECT LOG_USER,insert_time,station_id,action_description from USER_LOG_ALL WHERE insert_date > TO_DATE('2019-07-24 09:00:13', 'YYYY-MM-DD HH24:MI:SS') ORDER BY insert_time DESC"
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
While dr.Read()
     str(0) = room
     str(1) = dr.Item("insert_time")
      str(2) = dr.Item("station_id")
      str(3) = dr.Item("LOG_USER")
      Print_Out_log(str)
End While
conn.Dispose()
conn.Close()
End Sub

//////////////////////////////////////////////////////// 
ตอนเรียกใช้
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If IsDestinationReachable("8.8.8.8") Then 
'Connected
      Get_Last_Activity()
Else
     'Not Connected
End If
End Sub