Public Function Sql_RefreshTables()



    Dim TD As TableDef

    Dim S As String

    Dim IdxFlds As String



    DB.TableDefs.Refresh



    ' save current Indizes for Views (recreated after .RefreshLink)

    Call StoreViewPKs



    For Each TD In DB.TableDefs

        If Len(TD.Connect) > 0 Then

            If Left(TD.Connect, 5) = "ODBC;" Then



                Debug.Print "Updating " & TD.Name

                TD.Connect = ODBC_String()

                TD.RefreshLink



                ' View?

                If TD.Name Like "v_*" Then

                    IdxFlds = Nz(DLookup("IndexFields", "t_LinkedViewPK", "ViewName = '" & TD.Name & "'"))

                    If IdxFlds = "" Then Stop



                    ' Create PK

                    S = "CREATE INDEX PrimaryKey ON " & TD.Name & " (" & IdxFlds & ") WITH PRIMARY"

                    DB.Execute S

                End If



            End If

        End If

    Next TD



    DB.TableDefs.Refresh



End Function