just maybe:
Sub updateCnnStr()'Variables for workbook and connection
Dim wb As Workbook
'Dim odbc As WorkbookConnection
Dim odbc As ODBCConnection
'Set workbook variable as ThisWorkbook
Set wb = ThisWorkbook
'For each connection string, change DSN, Description, and Database
For Each odbc In wb.Connections
odbc.Connection = "ODBC;DSN=" & wb.Worksheets(1).Range("DSN") & ";Description=" & wb.Worksheets(1).Range("Description") & ";UID=lopezro2;APP=Microsoft Office 2016;WSID=US-CCR1-L08;DATABASE=" & wb.Worksheets(1).Range("Database")


Next
End Sub