check SQL server

I have a funtion to insert data into a SQL Server.
The problem is that if the SQL Server is not activated, it will hold for about 10 seconds until time out.
Is there any method in VB to check wether SQL server is available to connect before I do the insert ?

If you are using ADO you can trap errors around the connection object and you can also change the time out parameters to speed the response up.