DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub t_out()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
MsgBox cn.CommandTimeout
MsgBox cn.ConnectionTimeout
End Sub
cn.CommandTimeout = 50