ADP连接设置连接超时时间出错

yodong

Public Function sCreateConnection(ByVal udlFileName As String) As Boolean
On Error GoTo sCreateConnectionTrap:
    Dim sConnectionString As String
        sConnectionString = "Provider=" & udlFileName
        Application.CurrentProject.OpenConnection sConnectionString
        CurrentProject.Connection.ConnectionTimeout = 30 '连接超时时间

        sCreateConnection = True
sCreateConnectionExit:
    Exit Function
sCreateConnectionTrap:
'连接失败则返回false
    sCreateConnection = False
    MsgBox Err.Description, vbInformation, sysstr
    Resume sCreateConnectionExit
End Function
'================
为什么运行到这行:
        CurrentProject.Connection.ConnectionTimeout = 30 '连接超时时间
提示:失败呢?奇怪.

yodong

哦,!谢谢,我试试