Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim oConn As ADODB.Connection Dim rst1 As ADODB.Recordset Set oConn = New ADODB.Connection With oConn .Provider = sProvider .Properties("Data Source") = sDataSource .Properties("User ID") = sUserID .Properties("Password") = sPassword .Properties("Initial Catalog") = sInitialCatalog .CursorLocation = adUseClient ' .ConnectionTimeout = 120 'no difference ' .CommandTimeout = 120 'no difference .Open End With 'oConn Set rst1 = New ADODB.Recordset rst1.CursorType = adOpenKeyset rst1.LockType = adLockBatchOptimistic rst1.Open "Messwerte", oConn.ConnectionString, , , adCmdTable 'here the timeout occurs
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.