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