база с макросои

[neprogrammist]

по модулю надо создать таблицы и запустить модуль с макросом, резльтат вывести в виде таблицы

Public Function программа (program)
Dim d As Database
Dim s As Recordset
Dim b As Recordset
Dim f As Recordset
Set d = DBEngine.Workspaces(0).Databases(0)
Set f = d.OpenRecordset("Успеваемость")
Set b = d.OpenRecorset("Студенты")
f.Index = "инс"
Do Until b.EOF
f.Seek "=", b!инс
If f.NoMatch = True Then
Set s = d.OpenRecordset("УчПланы")
Do Until s.EOF
If b!группа = s!группа Then
f.AddNew
f!инс = b!инс
f!часы = s!часы
f!дисциплина = s!дисциплина
f.Update
End If
s.MoveNext
Loop
End If
b.MoveNext
Loop
MsgBox ("Программа завершена успешно")
End Function

я создал базу с таблицами, как ими манипулировать для этой задачи ?

[neprogrammist]

как их связать чтобы модуль выполнялся ?