Sub UsingQuery() Dim conn As ADODB.Connection Dim recs As Long Set conn = CurrentProject.Connection With conn .Execute "qryUpdateCountry", recs, adExecuteNoRecords .Close End With Set conn = Nothing MsgBox recs End Sub