刷新聯(lián)接表的函數(shù)

Public Sub Tablsx(Strtext As String) '刷新聯(lián)連表，參數(shù)為聯(lián)接表的址及文件名，USYS_Tabl是存放聯(lián)接表名的表。
    Dim hdk As String
    Dim cat As ADOX.Catalog
    Dim tdf As ADOX.Table
    hdk = Strtext
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
    Dim db As ADODB.Connection
    Dim rs As Recordset
    Dim BIAO As String
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = CurrentProject.Connection
    rs.Open "USYS_Tabl", , adOpenKeyset, adLockOptimistic, adCmdTable
    rs.MoveFirst
    Do Until rs.EOF
    BIAO = rs!id
    Set tdf = cat.Tables(BIAO)
    tdf.Properties("jet oledb:link datasource") = hdk
    rs.MoveNext
    Loop
    rs.Close
    DoCmd.Close
    End Sub
    **************************
    全部表都是聯(lián)接表時用
    Public Sub Ffff(strtext As String)
    Dim cat As ADOX.Catalog
    Dim tdf As ADOX.Table
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
    For I = 6 To cat.Tables.count
    Set tdf = cat.Tables(I)
    tdf.Properties("jet oledb:link datasource") = strtext
    Next I 　　
    End Sub