如何在access的VBA中，執行查詢類的sql命令？

在組合框的change事件裏寫類似如下代碼：

以下代碼的意思是：combo是顯示供應商的壹個組合框，通過選擇供應商，在Text4裏面顯示該供應商的總訂單數。

Dim?供應商ID

供應商ID?=?Combo0.Value

Dim?sql?As?String,?rs?As?Recordset

sql?=?"select?count(*)?as?cnt?from?[采購訂單]?where?[供應商?ID]="?&?供應商ID?'查詢的SQL語句。

Set?rs?=?CurrentDb.OpenRecordset(sql)

Text4.SetFocus

Text4.Text?=?rs.Fields(0)

End?Sub