Надо подсчитать количество значений ''1'' в таблице www в столбце Столбец1 - VB

Формулировка задачи:

Подскажите пожалуйста, что я делаю не так

Private Sub Command1_Click()
Dim dbsNorthwind As Database
   Dim rst1 As Recordset
   Set dbsNorthwind = OpenDatabase("Моя БД.MDB")
   With dbsNorthwind
      Set rst1 = .OpenRecordset("select * from www")
        a = rst1("select count(SwitchboardID) from www where Столбец1=''1''")
    MsgBox a
    End With
End Sub

Надо подсчитать количество значений ''1'' в таблице www в столбце Столбец1. В чем загвоздка ?

Решение задачи: «Надо подсчитать количество значений ''1'' в таблице www в столбце Столбец1»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click()
Dim db As Database
Set db = OpenDatabase("Моя БД.MDB")
MsgBox db.OpenRecordset("SELECT Count([Столбец1]) AS [Num] FROM [WWW] WHERE [Столбец1]=1")![Num]
End Sub
                        