Try
If fbcon.State = ConnectionState.Open Then
fbcon.Close()
fbcon.ClearPool(fbcon) << this returns error "cannot
disconnect database with open transactions (<number> open)"
End If
Catch ex As Exception
If Show_Error Then
MsgBox(ex.ToString)
End If
End Try

IS THERE ANY WAY I CAN CLOSE THIS TRANSACTIONS ?