I have this code that looks like it will do everything I need but it will not make the connection. adStateOpen is always empty.
Function MakeConnection(ImptDB As String, TableName As String) As Boolean
'*********Routine to establish connection with database
Dim DBFullName As String
Dim cs As...