I am also getting the same error on my script. I tried an extremely high number for the ConnectionTimeout and CommandTimeout properties as well as zero values. However, I am still seeing "80004005 Timeout expired" errors at random points of execution. This is a sample of the code involved with the ADO execution:
Set DBConn = CreateObject("ADODB.Connection")
dbAlumni.ConnectionTimeout = 0
DBConn.Open "Provider=sqloledb;Data Source=" & cServer & ";Initial Catalog=" & cDB & ";User Id=" & cUser &";Password=" & cPass & ";"
Dim intFamilyID, intAlumniID, intRelationID, strFirstName, strMiddleName, strLastName, strSuffix, bolDeceased
set ar = CreateObject("ADODB.recordset")
set ac = CreateObject("ADODB.command")
ac.CommandTimeout = 0
ac.ActiveConnection = DBConn
.
.
.
records = "'" & intFamilyID & "','" & intAlumniID & "','" & intRelationID & "','" & strFirstName & "','" & strMiddleName & "','" & strLastName & "','" & strSuffix & "'," & bolDeceased
queryAlumni = "INSERT INTO Family VALUES (" & records & ")"
ac.CommandText = queryAlumni
ac.Execute
Any assistance in this matter would be greatly appreciated. Thanks!