Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Execuate query

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