Исправление ошибки

[Adriana]

Не пойму что не так. Появляется ошибка "Method or data member not found (Error 461)" при выполнении расчета(выделяется жёлтым строчка "Private Sub Кнопка1_Click()"). Что делать?


Option Compare Database

Private Sub Кнопка1_Click()
Dim bs As Database 'база данных
Dim Таблица1 As Recordset ' Таблица баз данных
Dim Sum1, Sum2, Sum3, Sum4, Sum5 As Double
Dim n As Integer
Set tab_1 = bs.OpenRecordset("Таблица1") 'tab1 связь с таблицей "Таблица1"
tab_1.MoveFirst 'Встать на первую запись таблицы "Таблица1"
Sum1 = 0 ' Sum1:=0
Sum2 = 0 ' Sum2:=0
Sum3 = 0 ' Sum3:=0
Sum4 = 0 ' Sum4:=0
Sum5 = 0 ' Sum4:=0
n = 0
While Not tab_1.EOF ' Пока не конец файла таблицы "Таблица1"
Sum1 = Sum1 + tab_1.Fieds(1) * tab_1.Fieds(2) * tab_1.Fieds(3) 'Sum2:=Sum2+Ni*Mi*Ci
Sum2 = Sum2 + tab_1.Fieds(1) ^ 2
Sum3 = Sum3 + tab_1.Fieds(2) ^ 2
Sum4 = Sum4 + tab_1.Fieds(1)
Sum5 = Sum5 + tab_1.Fieds(2)
n = n + 1
tab_1.MoveNext ' Перейти на следующую запись таблицы "Таблица1"
Wend ' конец цикла While
Sum2 = (Sum2 - Sum2_ ^ 2 / n) * (Sum3 - Sum3_ ^ 2 / n) / (n - 1) ^ 2
Поле3.Caption = Str(Sum1 / Sum2) ' Вывести результат в визуальный элемент Edit_01
End Sub

[STING-WRX]

У вас в этой строчкеошибка
Set tab_1 = db.OpenRecordset("Таблица1", dbOpenDynaset)

причем tab_1 - должно быть типом Recordset (это по вашей логике) + добавьте , dbOpenDynaset)