As promised :-

   Dim dbsFE As DAO.Database
   Dim tdfLinked As DAO.TableDef
   Dim dbsAdmin As DAO.Database
   Dim rs1 As DAO.Recordset
   Dim rs2 As DAO.Recordset
   Dim SQLcmd As String
   Dim TML As String
   Dim FE As String
   Dim BE As String
   Dim tblName As String
   Dim AdminLoc As Variant
   Dim cc As Integer
   Dim rc As Integer
   Dim FEName As String
   Dim FENameL As String
   Dim BESearch As String
   Dim BESearch1 As String
   Dim FELen As Integer
   Dim FELen2 As Integer
   Dim BEN As Variant
   Dim Ver As Variant
   Dim Shellstr As String
   Dim SDbl As Double
   Dim DBVer As String
   Dim DL As String
   Dim DF As String
   
   On Error GoTo Err_Command9_Click
   
   DL = Me.cboDL.Value
   DF = "AL." & Format(CDate(Date), "yymmdd") & "." & Format(CDate(Time),
"hhmmss")
   
   FE = DL & ":\" & DF & "\AL" & Ver & ".mde"
   
   MsgBox "Now refreshing links to your Back End database ..."
   
   DoCmd.Hourglass True
 
   ' Open the FE database in order to link tables
   
       Set dbsFE = OpenDatabase(FE, True)

Fails at Open statement (the databse referred to by variable FE is a 2K
database)