Erro update em tabela Access

Estou tentando executar o código abaixo, ele não mostra erro de execução, no entanto não envia as informações do formulário Excel para a tabela do Access.

Código:

Public Sub AddDatabaseEntry()

 Dim cn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 Dim stDB As String, stSQL As String, stProvider As String
 Dim Name As String
 Dim Address As String

 Name = Txtname
 Address = Txtcpf
   
 stDB = "Data Source= " & ThisWorkbook.Path & "\Projeto_Central.accdb"
 stProvider = "Microsoft.ACE.OLEDB.12.0"

 'Opening connection to database
 With cn

     .ConnectionString = stDB
     .Provider = stProvider
     .Open

 End With

'SQL Statement of what I want from the database
 '''stSQL = "INSERT INTO Cadastro (Nome, CPF) " & _
         "Values (""" & Name & """, """ & Address & """)"
         
         
stSQL = "INSERT INTO Cadastro (Nome, CPF) " & _
         "Values ('" & Name & "', '" & Address & "')"
         
         
'stSQL = "INSERT INTO Cadastro (Nome, CPF)" & "Values ('" & Page(2).Txtnome & "','" & Txtcpf & "')"

 cn.Close
 Set rs = Nothing
 Set cn = Nothing

End Sub

Anexo arquivo em XLSX

Olá Sidney Miranda, seja bem-vindo ao fórum.

Este fórum é de MsAccess, o tópico foi movido para "Off Tópic - Assuntos Variado".

Abraço e bons estudos.

Realizei a edição do código inserindo o comando informando, mas continua sem atualizar a tabela do Access

Pelo que eu entendi, vc quer inserir no Access os dados de Nome e CPF da planilha "Central"?
É isso?

Código:

Public Sub AddDatabaseEntry()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim stDB As String, stSQL As String, stProvider As String
  Dim Name As String
  Dim Address As String

  'Name = Txtname
  'Address = Txtcpf
 
   
  stDB = "Data Source= " & ThisWorkbook.Path & "\Projeto_Central.accdb"
  stProvider = "Microsoft.ACE.OLEDB.12.0"

  With cn

      .ConnectionString = stDB
      .Provider = stProvider
      .Open

  End With

stSQL = "INSERT INTO Cadastro (NOME) VALUES ('" & UserForm1.Txtnome.Value & "')"
cn.Execute stSQL

  cn.Close
  Set rs = Nothing
  Set cn = Nothing
End Sub