[Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel

Ola, Estou tentando atribuir um valor de uma tabela em uma variavel, mas nao estou achando um jeito, sei que parece simples mas nao tenho muito conhecimento ..
Agradeco ai a ajuda  
Veja o codigo das partes do processo. quando executo da erro quano vou passar o valor para variavel GrupoSelecionado_V ...



'Declarando variaves
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim strSql As String
   
   On Error GoTo ErrorDivisao
       
       'instanciando as variaves do objeto DAO
       Set db = CurrentDb()
       strSql = "SELECT * FROM tbAnamneseCrianca WHERE ID_Paciente=" & Me.LinhaSelecionada_TT
       Set rs = db.OpenRecordset(strSql)
           
       'Abir o forlumario PacienteAnamneseCrianca_F
       'DoCmd.OpenForm "PacienteAnamneseCrianca_F"
       
       Call AbrirAnamneseGrupo    <<=========  CHAMO A SUB ROTINA AQUI...
.
  'Editar os dados
       With rs
           .Edit
           Forms!PacienteAnamneseCrianca_F.Controls("ID_AnamneseCrianca_T") = .Fields("ID_AnamneseCrianca")
           Forms!PacienteAnamneseCrianca_F.Controls("ID_Paciente_T") = .Fields("ID_Paciente")
           Forms!PacienteAnamneseCrianca_F.Controls("Apelido_T") = .Fields("Apelido")
           Forms!PacienteAnamneseCrianca_F.Controls("Grupo_T") = .Fields("Grupo")  
           Forms!PacienteAnamneseCrianca_F.Controls("Naturalidade_T") = .Fields("Naturalidade")          
.
.
.
      EndWith
.
.
.

Private Sub AbrirAnamneseGrupo()

   'inicializar variaval...
   Dim GrupoSelecionado_V As Integer
   
   'atribuindo varlor as variavais
   GrupoSelecionado_V = Grupo       <<============== ESTE CAMPO ESTÁ NA TABELA, COMO COLOCO O VALOR DELE NESTE VARIAVEL?
   
       
   'Filtro para ir ao formularios dependendo do Grupo ...
   Select Case GrupoSelecionado_V
       Case Is = 1 ' Crianca...
           DoCmd.OpenForm "PacienteAnamneseCrianca_F"
       Case Is = 2 ' Adolecente
           DoCmd.OpenForm "PacienteAnamneseAdolescente_F"
       Case Is = 3 ' Adulto
           DoCmd.OpenForm "PacienteAnamneseAdulto_F"
       Case Else   ' Idoso
           DoCmd.OpenForm "PacienteAnamneseIdoso_F"
   End Select
End Sub

Ola consegui resolver, refiz minha logica e deu certo..

Tópico movido da repositórios de vbscript.