Code now looks like this:
Public Sub OMS_Update()
Set srcDB = CurrentProject.Connection
'srcDB.Open "database", "username", "passord"
srcDB.CursorLocation = adUseServer
DoCmd.SetWarnings False
Set srcRS = New ADODB.Recordset
srcRS.Open "TRUNCATE TABLE OI_LOC", srcDB, adOpenDynamic...