Possuo o codigo abaixo, porem o mesmo não deixa deletar os registros da tabela antes de efetuar um novo update.

O erro que aparece é: Erro de Sintaxe na Clausula From.

Dim cn As ADODB.Connection 'variável para base
Dim rs As ADODB.Recordset 'variável para tabela
Dim r As Long 'variável para o númerdo da linha na planilha
Dim str As String


'conectando ao banco de dados access
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:AREA MÉDICAJOSE PEREZGESTÃO INTERNAÇÕES ÁREA MÉDICABANCO ACCESSAreaMedica.accdb"

'abrindo a tabela do banco de dados

Set rs = New ADODB.Recordset

rs.Open "Delete * FROM Planilha_Nivel_II", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' Deleta Todos os registros da tabela"

rs.Open "Planilha_Nivel_II", cn, adOpenKeyset, adLockOptimistic, adCmdTable 

'número da linha que irá começar na planilha
r = 2

Do While Len(Range("A" & r).Formula) > 0 ' repete enquanto a coluna a for maior que Zero

With rs
.AddNew 'insere novo registro no banco de dados