Hi Sam.

Before open the login form, you can reconnect the project or read the table
in a separate connection to the server, then reconnect the progect

Open a recordset in separate connection
-----
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset

Cn.Open "Provider=SQLOLEDB.1" & _
     ";Data Source=ServerName" & _
     ";Initial Catalog=DbName" & _
     ";User Id=UserName" & _
     ";Password=UserPassword"

Rs.Open "Select * From Tablename", Cn, adOpenKeyset, adLockOptimistic
......
......
Rs.close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing

----

reconnect the project
----
If Currentproject.IsConnected=False Then
  Currentproject.OpenConnection _
     "Provider=SQLOLEDB.1" & _
     ";Data Source=ServerName" & _
     ";Initial Catalog=DbName" & _
     ";User Id=UserName" & _
     ";Password=UserPassword"
End if
----

bye