Hi

Your question is not clear. Anyway I guess you have problems while updating an existing record.

try

Code:
If ComboBox_Pesquisa.ListIndex = -1 Then
   DadosLinha = Dados.UsedRange.Rows.Count + 1
Else' I have added this else part
    DadosLinha = ComboBox_Pesquisa.ListIndex + 2
End If