|
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 '连接超时时间
提示:失败呢?奇怪. |
|