Erro:No value given for one or more required parameters ao inserir dados em tabela de Access

Question

Boa tarde a todos.

Tenho o seguinte código associado a um botão. A ideia é apagar os dados da tabela CENTRAL_TEMP e voltar a prenchê-la com dados da tabela CENTRAL_CONSUMOS. O código funciona bem para apagar os dados mas obtenho o erro que descrevi quando a linha populaTel.ExecuteNonQuery() é executada. Julgo que algo está mal com a definição/uso do parâmetro pois se o retirar do SQL INSERT não obtenho qualquer erro e a tabela CENTRAL_TEMP é populada.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ligaTel As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\boxus\Geral\Dados\UTLT.accdb;Persist Security Info=False")
        'preencher uma tabela temporária - apagar e preencher
        ligaTel.Open()
        Dim xP1 As New OleDbParameter
        Dim apagaTel As New OleDbCommand("DELETE FROM CENTRAL_TEMP", ligaTel)
        apagaTel.ExecuteNonQuery()
        Dim populaTel As New OleDbCommand("INSERT INTO CENTRAL_TEMP(TEMP_TELEFONE, TEMP_VALOR, TEMP_DESCRICAO, TEMP_CC) SELECT A.NRTELEFONE, ROUND(SUM(B.VALOR),3), B.DESCRICAO, A.CENTRO_CUSTO FROM CENTRAL_TELEFONES A, CENTRAL_CONSUMOS B WHERE A.NRTELEFONE = B.CHAMADOR AND B.FACTURA = ? GROUP BY A.NRTELEFONE, B.DESCRICAO, A.CENTRO_CUSTO", ligaTel)
        populaTel.Parameters.AddWithValue("xP1", Me.ComboBox1.Text)
        populaTel.ExecuteNonQuery()
        ligaTel.Close()
    End Sub

Muito agradecido por qualquer ajuda.

Octavio