Erro em tempo de execução '13'

Meu código Depurou, alguém pode me ajudar ?




Option Compare Database

Private Sub Form_Open(Cancel As Integer)
'DoCmd.GoToRecord , , acNewRec
Dim texto
'Me.GRD_Nº = "1"
Refresh
texto = Me.grd1 + 1 & "/" & Month(Date) & "/" & Right(Year(Date), 2)[/color] = ESSA PARTE DE AMARELO
Form_GRD.GRD_Nº = texto
'Me.GRD_Nº = texto
DoCmd.Close acForm, "nº grd"

End Sub

Teste;

Código:


Private Sub Form_Load()
Dim strtexto As String
strtexto = Val(Nz(Me.grd1.Value,0)) + 1 & "/" & Month(Date) & "/" & Right(Year(Date), 2)
End Sub

Não deve efetuar instruções dessas ao abrir, deverá ser ao carregar, porque ao abrir você ainda não tem dados.
Não use palavras reservadas do Access em instruções VBA.

Não, funcionou, posso mandar o Arquivo para você dar uma olhada ???

O que é que não funcionou ?
Deu erro ?

Continuou depurado, infelizmente