Este fórum está sendo desativado

[maciel2912]

Olá, boa tarde

Sou novato em programação com Excel VBA com Baco de Dados em Access, precisando de uma força aqui:
Seguinte: tenho uma planilha de cadastro onde envio os dados pra um banco externo em Access, no Banco tenho os seguintes campos:
NUMERO NOME DATA FUNCAO
394001 FULANO DE TAL 01/03/2017 GERENTE
394001 FULANO DE TAL 02/03/2017 GERENTE
394001 FULANO DE TAL 03/03/2017 GERENTE
394002 PEDRO 01/03/2017 OPERADOR DE CAIXA
394002 PEDRO 02/03/2017 OPERADOR DE CAIXA
Na Coluna Numero, tenho um código, precisando de um select que me retorne somente dados referentes ao número 394001 por exemplo.

Eu tenho esse select

Set MiConexao = New ADODB.Connection
MyCbanco = ShtConfig.Range("Cbanco")

With MiConexao
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open MyCbanco
End With

With Rs
.ActiveConnection = MiConexao
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "Select * FROM Tb_Ponto" nome da minha tabela, mas traz todos os dados
.MoveFirst
End With

Worksheets("ponto").Select
For i = 0 To Rs.Fields.Count - 1
ActiveSheet.Cells(, b + 2) = Rs.Fields(b).Name
Next i
ActiveSheet.Range("b2").CopyFromRecordset Rs

Call Desconecta

End Function

Alguém sabe como faço para altera esse select e retornar somente os dados referentes ao que eu determinar.

[Reinaldo]

Experimente:
.Open "Select * FROM Tb_Ponto where tb_ponto.Numero = 394001"