To help anybody else like myself who codes but doesn't understand all the intricacies and terminology, this code works for me :-)
Option Explicit
Option Base 1
Option Compare Text
Sub UpdateDatabaseLeague(temp)
On Error GoTo 0
SQLstr = "UPDATE League SET SessionNo = " & myEmailSessionNo & " WHERE League.[ID] = " & temp
Set KA_RS_League = New ADODB.Recordset
If KA_RS_League.State = adStateOpen Then KA_RS_League.Close
Set KA_RS_League = KA_DB.Execute(SQLstr)
End Sub