Set adoCmd = New ADODB.Command 
  With adoCmd
    .ActiveConnection = CurrentProject.Connection
    .ActiveConnection.CursorLocation = adUseClient
    .CommandText = "SELECT * FROM ～;"
    Set rstData = .Execute(, Array(～)))
  End With
  MsgBox rstData.RecordCount
    :