В Visual Basic написан обработчик на кнопку. При выполнении выдает такую ошибку:Compil error. Type Mismatch, указывая на Source в строке, которая помечена красным.

Private Sub Kn14_Click()
Dim rst As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Dim strSQL As String
Dim strSQL2 As String
Dim cmd As ADODB.Command

strSQL = "SELECT CzurnalHozOp.Дата, CzurnalHozOp.Документ, CzurnalHozOp.№ХозОперации, CzurnalHozOp.Содержание, CzurnalHozOp.Табельный№, CzurnalHozOp.Сумма, CzurnalHozOp.Дебет, CzurnalHozOp.Кредит, CzurnalHozOp.с, CzurnalHozOp.по " _
& "FROM CzurnalHozOp;"

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "qrySumma" ' "qrySumma" - сохраненный запрос с таким именем
cmd.CommandType = adCmdTable

Set rst2 = New ADODB.Recordset
rst2.ActiveConnection = CurrentProject.Connection
rst2.CursorType = adOpenKeyset
rst2.LockType = adLockOptimistic
rst2.Source = cmd
rst2.Open
rst2.MoveFirst
и т д