Conexão Firebird

Boa Tarde

Tenho uma conexão em rede banco de dados Firebird 2.1 como abaixo

Dim Comc as string
comc="192.168.0.2:C:\Pasta\Banco.FDB"
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=IBOLE.PROVIDER;Data Source=" & Comc & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"
Funciona perfeitamente porém anda algumas vezes acontecendo o seguinte

Quando faço um select

Set Rs1=cnn.execute("Select * tblProduto Where Codigo='" & me.Codigo & "'")

O sistema simplesmente trava, fui verificar e percebi que a rede está instavel, desconecta,conecta,desconecta etc.

isso acontece quando a maquina fica por algum tempo parada sem que nenhum usuario utilize o sistema.

ai pensei

Teria uma forma de ao fazer um select passados se 10 segundos sem obter a resposta do servidor, enviar uma mensagem para o usuario que a rede está desconectada ? isso sem trava o sistema ,tipo um timeout

ouvi dizer que tem como definir isso na conexão, alguem sabe como posso resolver este Problema ?

Obrigado.