Database no VB6

Desculpa aí pessoal, sei que estou enchendo.

Mas estou escovando aqui sem nada.

Escrevi um codigo aqui, mas não consigo entender como o Vb trabalha com o Access 2000. ele apresenta o seguinte erro qdo ponho p / rodar

Private Sub Form_Load()

Set Agenda = OpenDatabase("D:\Source\Agenda1\Agenda.mdb", False)

Set Tabela_Agenda = Agenda.OpenRecordset("Agenda_Eletronica", _

dbOpenDynaset)

Tabela_Agenda.MoveFirst

Atualiza_Campos

Refresh_Btn.Enabled = False

End Sub

Ele aponta o erro para a linha marcada