Getting a connection

gistfile1.vb

Public Function GetSQLServerConnection() As Connection
    
    Dim con As Connection
    Set con = New Connection
    con.connectionString = CurrentDb.TableDefs(10).Connect
    con.Open
    Set GetSQLServerConnection = con
End Function


....
    cmd.ActiveConnection = GetSQLServerConnection
    cmd.CommandText = finalCommand
    cmd.Execute
    cmd.ActiveConnection.Close