Variável VBA

Caros Colegas,

Preciso descobrir qual sintaxe que devo usar para referenciar uma variável no lugar do campo de uma tabela. O código é:

Dim BD1 As Database
Dim SCO As Recordset
Set BD1 = OpenDatabase("c:\Empresa\Banco.accdb")
Set SCO = BD1.OpenRecordset("SCO", DB_OPEN_TABLE).
dim NomeDoCampo as integer
NomeDocampo = "Idade"  'Idade é o nome do campo na tabela SCO
SCO.MoveFirst
Do Until SCO.EOF
  If IsNumeric(SCO![NomeDoCampo]) Then 'Nesta linha quero que o access subtitua NomedoCampo por Idade
     MsgBox "É Numérico"
  End If
  SCO.MoveNext
Loop

Dá o sequinte erro: Item não encontrado nesta coleção.
Obvio. Pois NomeDocampo ção é campo da tabela e sim o campo Idade.

Grato.

Tente assim:

Dim BD1 As Database
Dim SCO As Recordset
Set BD1 = OpenDatabase("c:\Empresa\Banco.accdb")
Set SCO = BD1.OpenRecordset("SCO", DB_OPEN_TABLE).
dim NomeDoCampo as String
NomeDocampo = "Idade" 'Idade é o nome do campo na tabela SCO
SCO.MoveFirst
Do Until SCO.EOF
If IsNumeric(Me("SCO!" & NomeDoCampo)) Then 'Nesta linha quero que o access subtitua NomedoCampo por Idade
MsgBox "É Numérico"
End If
SCO.MoveNext
Loop

*Sequência de texto tem que ser em variável tipo String

Continua dando o erro de "item não encontrado na lista".

Obrigado.

Teste primeiro sem variavel, se funfar, aplique para a variavel.


Dim BD1 As Database
Dim SCO As Recordset
Set BD1 = OpenDatabase("c:\Empresa\Banco.accdb")
Set SCO = BD1.OpenRecordset("Select * From SCO")
SCO.MoveLast
SCO.MoveFirst
Do Until SCO.EOF
If IsNumeric(SCO!Idade) Then
MsgBox "É Numérico"
End If
SCO.MoveNext
Loop