If Application.CurrentProject.IsConnected = False Then
    Application.CurrentProject.CloseConnection
    Application.CurrentProject.OpenConnection  "Provider=sqloledb;"  & _
                                               "Persist Security Info=False;"  & _
                                               "Data Source='FTD-05';"  & _
                                               "Initial Catalog='S&T';"  & _
                                               "User ID="  & T_User &  ";"  & _
                                               "Password="  & T_Password
    ...........
    ...........
    ...........
End If