Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
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.