Urgent-Create Link in code

1) Create a Table (tblConnection)
   a)3 Fields
      i) ConID (AutoNum)
      ii) ServerName (Uniquely Identify Host Server)
      iii) conStr (Full Path String of the Back End DB)

2) Put this code somewhere in a Sub Procedure

Private Sub BuildConnectionBut_Click()

Dim dbConnect As String, finalStr As String, tbl As TableDef

'initialize string to alert user of changes
finalStr = "Connected Tables Are..." & vbCrLf & vbCrLf
'get the connection string of back end server (replace fakeServer w/ value from tblCon
dbConnect = DLookup("[conStr]", "tblCon", "[serverName] = 'fakeServer'")

For Each tbl In CurrentDb.TableDefs 'loop through all tables on front end
   If Not IsNothing(tbl.Connect) Then  'if the table HAS a connection
     Call doConnect(tbl.Name, tbl.Name, dbConnect)  'call the fuction to re-create link
     finalStr = finalStr & tbl.Name & vbTab & tbl.SourceTableName & vbCrLf 'build string
   End If
Next tbl
MsgBox finalStr  'print out string for user visual
 
Set tbl = Nothing 

End Sub

'Here is the procedure for building individual table connections

Public Function doConnect(linkName As String, sourceName As String, dbConnect As String)
 Dim tbl As TableDef, dbsTemp As DAO.Database, tblName As TableDef
 Set dbsTemp = CurrentDb
 
 For Each tblName In dbsTemp.TableDefs  'loop through tables
    If tblName.Name = linkName Then  'if the table (w/ link) already exists
      DoCmd.DeleteObject acTable, linkName  'delete the current table
    End If
 Next tblName
 
 Set tbl = dbsTemp.CreateTableDef(linkName)  'create new table (w/ link)
 tbl.Connect = ";DATABASE=" & dbConnect  'set connection db
 tbl.SourceTableName = sourceName  'set source table name (from back end)
 dbsTemp.TableDefs.Append tbl   'add the tabledef to front end
 
 Set tbl = Nothing
 Set dbsTemp = Nothing
 Set tblName = Nothing
 
End Function

'Here is the Code for the IsNothing Function

Function IsNothing(varToTest As Variant) As Integer
'  Tests for a "logical" nothing based on data type
'  Empty and Null = Nothing
'  Number = 0 is Nothing
'  Zero length string is Nothing
'  Date/Time is never Nothing

    IsNothing = True

    Select Case VarType(varToTest)
        Case vbEmpty
            Exit Function
        Case vbNull
            Exit Function
        Case vbBoolean
            If varToTest Then IsNothing = False
        Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
            If varToTest <> 0 Then IsNothing = False
        Case vbDate
            IsNothing = False
        Case vbString
            If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
    End Select

End Function