Variável de objeto ou variável do bloco With não definida (Erro 91)

[Ramon Mattos]

Bom dia.

Tenho uma tabela no Access que gostaria de alimentar uma outra tabela no MS Project, testei os dados importados da tabela utilizando o msgbox, funciona perfeitamente. Porem quando habilito a linha 'Activeproject.Resources…… apresenta o seguinte erro.

Variável de objeto ou variável do bloco With não definida (Erro 91)

Veja abaixo:

Dim wks As DAO.Workspace
Dim db1 As DAO.Database
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Dados As String
Dim Dados1 As String
Dim Dados2 As String

Set wks = DBEngine(0)
Set db1 = wks.OpenDatabase("C:\Documents and Settings\S&C\Desktop\AutomacaoProject.mdb")
Set db = db1
Set rs = db.OpenRecordset("Cs_Atribuicoes")

ViewApply Name:="Uso dos Recursos"

rs.MoveFirst

Do While Not rs.EOF
Dados = rs.Fields("PePr_dt_Data") & " 00:00"
Dados1 = rs.Fields("ASSN_ACT_START") & " 00:00"
Dados2 = rs.Fields("ASSN_ACT_FINISH") & " 00:00"

'Activeproject.Resources.UniqueID(1).Assignments.UniqueID(2097158).TimeScaleData(StartDate:=Dados1, EndDate:=Dados2, Type:=10, TimeScaleUnit:=4, Count:=1).Item(1).Value = "1"

MsgBox Dados & " - " & Dados1 & " - " & Dados2

rs.MoveNext

Loop

rs.Close

End Sub

Abraços e obrigado.

Editado Maio 14, 2009 por kuroi
Adicionar tag CODE