Guru do Excel e Power BI

Olá a todos e obrigado pela atenção!
Estou com problema para alterar os dados no banco do access via listbox do execel, no userform contem o campo que busca no access e preenche a listbox e o botão de alteração. Porem só está alterando a primeira linha ignorando a seleção da listbox, gostaria de usar tbm o multiselect para fazer as alterações em mais linhas, segue abaixo o código de preenchimento da listbox e o botão altera.
Private Sub CommandButton1_Click()
'Preenche a listbox com os dados do banco

If txt_Pedid = "" Then
MsgBox "Prencha Data Inicial!", vbExclamation, "Aviso"
Exit Sub
End If


Dim vBusca As String
Dim LinhaListbox As Integer

LinhaListbox = 0
ListBox5.Clear
ListBox5.ColumnCount = 10
ListBox5.ColumnWidths = "120;90;60;80;80;60;60;60;30;60"
vBusca = txt_Pedid.Text


ConectDB

rs.Open "Select * from tHistorico where Pedido like'" & Replace(vBusca, "'", "''") & "%'", db, 3, 3

Do Until rs.EOF

With ListBox5

.AddItem
.List(LinhaListbox, 0) = rs!Status
.List(LinhaListbox, 1) = rs!Fornecedor
.List(LinhaListbox, 2) = rs!Vendedor
.List(LinhaListbox, 3) = rs!Data
.List(LinhaListbox, 4) = rs!Produto
.List(LinhaListbox, 5) = rs!Quant
.List(LinhaListbox, 6) = rs!Uni
.List(LinhaListbox, 7) = rs!Valor

LinhaListbox = LinhaListbox + 1

End With




rs.MoveNext
Loop

FechaDB


End Sub

Private Sub CommandButton2_Click()

'Atualiza o item selecionado no banco

Dim comandoSql As String
Dim Pedido As Integer


Pedido = txt_Pedid

comandoSql = "select * From tHistorico where Pedido like '" & Pedido & "'"

Call conecta

Set Consulta = banco.OpenRecordset(comandoSql)

With Consulta

.Edit

Consulta("Status") = Me.ComboBox1

.Update
Consulta.Close

Call desconecta

End With
End Sub