Private Sub Remover_Click()

Dim con As ADODB.Connection
Set con = CurrentProject.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset


Dim i As Integer

For i = 0 To Lista_eventos.ListCount - 1
If Lista_eventos.Selected(i) Then
rst.Open "Eventos", con, adOpenForwardOnly, adLockOptimistic
rst.Find "Nome = '" & Ev & "'", , adSearchForward
idevento = rst.Fields("ID")
rst.Delete
rst.MoveFirst
rst.Close
End If
Next i



    query3 = "SELECT ID,Tipo,Nome FROM Eventos"


    With Lista_eventos
        .ColumnCount = 3
        .RowSourceType = "Table/Query"
        .ColumnHeads = False
        .RowSource = query3
        .ColumnWidths = "0cm; 3 cm;3cm"
    End With


End Sub