MSSQL Server Timeout expired. The timeout period elapsed prior to completion of the operation or the server is not responding.

1.Çözüm olarak
bağlantı stringi olarak

kullanmak bağlantı zamanı aşımı hatasını giderebilir.
-----------------
1.Çözüm olarak
Dim myCommand As New SqlCommand(sql, myConnection, myTrans)
myCommand.CommandType = CommandType.StoredProcedure
myCommand.CommandTimeout = 0

buradaki 0 değeri bağlantı zaman aşım değerini Limitsiz olarak ulaşmanızı sağlar.

buda oldukca iyi bir yol.