'=========================================================================================
'函数名称：RefurbishLinkTable
'函数作用：本函数建立由strDBName指定的数据库中的链接表
'
请大神帮忙看看是哪里的问题，谢谢！
'=========================================================================================
Function RefurbishLinkTable(strTableName As String) As Boolean
'On Error Resume Next
Dim strPath As String
Dim strDBType As String
strDBName = GetADOConnection()
Dim strA() As String
strA = Split(strTableName, ";") '将strTableName转化为数组
Dim i As Integer
For i = 0 To UBound(strA) '循环建立链接表，链接表前缀为“Link_”
If ObjectExists(strA(i), 1) Then
DoCmd.DeleteObject acTable, strA(i)
End If
strPath = CurrentProject.Path & "\Config.ini"
Select Case DES(GetKeyVal(strPath, "Database Server Config", "DataBaseType"), , False)
Case "Access"
strDBType = "Microsoft Access"
Case "Microsoft SQL Server"
strDBType = "ODBC Database"
End Select
DoCmd.TransferDatabase acLink, strDBType, strDBName, acTable, strA(i), strA(i)
Next
RefurbishLinkTable = True
End Function
