б.д и запуск с макросом

[neprogrammist]

помогите пожалуйста!! как решить эту задачу ??

Для данного программного модуля создать базу данных в СУБД Microsoft Access и через макрос запустить его на выполнение. Результат вывести в виде таблицы.

Public Function прогр()
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.OpenRecordset("Студенты")
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