Set R = New ADODB.Recordset
cnn.ConnectionTimeout = 300
Set cnn = CurrentProject.Connection 'Здесь уже наш таймаут потерялся
MsgBox cnn.ConnectionTimeout
R.ActiveConnection = cnn
R.Open sql
row = 3
получается что ConnectionTimeout это оно видимо и есть. Но проблема в том, что когда ставим
Set cnn = CurrentProject.Connection
изменить ни cnn.ConnectionTimeout ни CurrentProject.ConnectionTimeout
уже не удастся