variavel não definida

Quando clico no botão DADOS - recebo a informação de variavel não definida.

Private Sub Form_Open(Cancel As Integer)
Dim strCaminho As String

strCaminho = CurrentDbDir + "cne.ico"

Call SetFormIcon(Me, strCaminho) 'OK

End Sub

Olá Rosemberg,

Em qual linha aparece o aviso, isto é, ou fica sinalizada?