Olá amigos, conseui, com uma lógica be simples, vejam:

 

For X = 1 To 4
Graf1.Row = X
If X = 1 Then
Graf1.RowLabel = "Nr Conducoes"
Graf1.Data = v1!TOTCON
ElseIf X = 2 Then
Graf1.RowLabel = "Nr Autuacoes"
Graf1.Data = v1!TOTAU
ElseIf X = 3 Then
Graf1.RowLabel = "Nr TCO"
Graf1.Data = v1!TOTTCO
Else
Graf1.RowLabel = "Km Perc."
Graf1.Data = Format(v1!KMPER, "###,###,##0.00")
End If
Next X
Obrigado a todos.

 

Henrique