time expirated consulta de actualizacion

[totigo]

Debes involucrar un Timeout, ejemplo 1200

Asi:

Código vb:

Dim Conectar As ADODB.Connection
    Set Conectar = New ADODB.Connection
    Conectar.Provider = "SQLOLEDB.1"
    Conectar.CommandTimeout = 1200
    Conectar.Open CadenaConexion
 

O así

Código vb:

Dim adbconect As New ADODB.Connection
    adbconect.CursorLocation = adUseServer
    adbconect.ConnectionTimeout = 1200
    adbconect.Provider = "SQLOLEDB.1"
    adbconect.Open CadenaConexion