[Resolvido]Carregar os campos da tabela em variaveis via SQL

Estou querendo armazenar nas variáveis “v” os campos da tabela BASEDADOS e está dando este erro relacionado , eu consigo se vincular a tabela ao formulário mas não quero pois quero carregar mais dados de outra tabela e gravar todos os dados em uma terceira tabela .

Segue o codigo , pois está me dando o seguinte error: error em tempo de execuçao 2465.???????

Private Sub Comb_periodo1_AfterUpdate()
Dim MSG As String
Dim ThisDB As Database
Dim ThisRS As Recordset
Dim StrSQL As String
Dim vStatus As String, vProd As String, vDescrição As String, vMês As String
Dim vEstoqueInvalido As String, vCustoPadrão As String, vFAMILIA As String, vCBU As String
'variaveis para calculo do custo
Dim vTotalCusto As String, vCustoImposto As String, vCustoTotalUK As String
Dim vImposto As String, vUK As String

vImposto = Me.txt_IMPOSTO
vUK = Me.txt_UK


StrSQL = "SELECT BASEDADOS.* FROM BASEDADOS WHERE " & _
"BASEDADOS.mês = '" & Me.Comb_periodo1 & "';"
Set ThisDB = CurrentDb
''Set ThisRS = ThisDB.OpenRecordset(StrSQL)




'carrega nas variáveis os valores dos dados da BASEDADOS
vStatus = Me([Status]
vProd = Me.[Prod]
vDescrição = Me.[Descrição]
vMês = Me.[Mês]
vEstoqueInvalido = Me.[EstoqueInválido]
vCustoPadrão = Me.[CustoPadrão]
vFAMILIA = Me.[FAMILIA]
vCBU = Me.[CBU]
vTotalCusto = vEstoqueInvalido * vCustoPadrão
vCustoImposto = vTotalCusto * vImposto
vCustoTotalUK = Format$(vCustoImposto / vUK, "###,###")




If Me.Texto127 <= 0 Then
MSG = " DIVERGENCIA NOS PERÍODOS."
MsgBox MSG, vbCritical
Me.Comb_periodo1 = Null
Me.Comb_periodo2 = Null

End If
Me.Comb_periodo1.SetFocus
Refresh

Boa tarde, ALQMC, e bem-vindo ao fórum

utilize

carrega nas variáveis os valores dos dados da BASEDADOS
vStatus = ThisDB("Status")
vProd = ThisDB("Prod")
vDescrição = ThisDB("Descrição")
vMês = ThisDB("Mês")
vEstoqueInvalido = ThisDB("EstoqueInválido")
vCustoPadrão = ThisDB("CustoPadrão")
vFAMILIA = ThisDB("FAMILIA")
vCBU = ThisDB("CBU")
vTotalCusto = vEstoqueInvalido * vCustoPadrão
vCustoImposto = vTotalCusto * vImposto
vCustoTotalUK = Format$(vCustoImposto / vUK, "###,###")

Obrigado pela ajuda , fiz o que vc falou mas nao adiantou , não sei se é porque estou trabalhando com tabela vinculada de uma planilha excel ?

Veja se funciona assim:
Private Sub Comb_periodo1_AfterUpdate()
Dim MSG As String
Dim ThisDB As Database
Dim ThisRS As Recordset
Dim StrSQL As String
Dim vStatus As String, vProd As String, vDescrição As String, vMês As String
Dim vEstoqueInvalido As String, vCustoPadrão As String, vFAMILIA As String, vCBU As String
'variaveis para calculo do custo
Dim vTotalCusto As String, vCustoImposto As String, vCustoTotalUK As String
Dim vImposto As String, vUK As String

vImposto = Me.txt_IMPOSTO
vUK = Me.txt_UK

StrSQL = "SELECT BASEDADOS.* FROM BASEDADOS WHERE " & _
"BASEDADOS.mês = '" & Me.Comb_periodo1 & "';"
Set ThisDB = CurrentDb
Set ThisRS = ThisDB.OpenRecordset(StrSQL)
'carrega nas variáveis os valores dos dados da BASEDADOS
vStatus = ThisRS("Status")
vProd = ThisRS("Prod")
vDescrição = ThisRS("Descrição")
vMês = ThisRS("Mês")
vEstoqueInvalido = ThisRS("EstoqueInválido")
vCustoPadrão = ThisRS("CustoPadrão")
vFAMILIA = ThisRS("FAMILIA")
vCBU = ThisRS("CBU")
vTotalCusto = vEstoqueInvalido * vCustoPadrão
vCustoImposto = vTotalCusto * vImposto
vCustoTotalUK = Format$(vCustoImposto / vUK, "###,###")

If Me.Texto127 <= 0 Then
MSG = " DIVERGENCIA NOS PERÍODOS."
MsgBox MSG, vbCritical
Me.Comb_periodo1 = Null
Me.Comb_periodo2 = Null

End If
Me.Comb_periodo1.SetFocus
Refresh

boas
tente assim

'carrega nas variáveis os valores dos dados da BASEDADOS
vStatus = ThisRS[Status]
vProd = ThisRS[Prod]
vDescrição = ThisRS[Descrição]
.....

ou
With ThisRs
'carrega nas variáveis os valores dos dados da BASEDADOS
vStatus = !Status
vProd = !Prod
vDescrição = !Descrição
.....

end with

cumps
acao

boas
amigo nao deu o retorno se funcionou

assim tem que funcionar:

'carrega nas variáveis os valores dos dados da BASEDADOS
vStatus = ThisRS!Status
vProd = ThisRS!Prod
vDescrição = ThisRS!Descrição
....

Tópico resolvido, por falta de retorno atempado.