Error delete

[tienda]

alguien me puede decir que está mal aquí sería de agradecer enormemente

Código:

Dim comados2 = conexion.CreateCommand
        comados2.CommandType = CommandType.Text
        comados2.CommandText = "Delete * FROM IntroduccionDeVentasPend WHERE Fecha BETWEEN @FI AND @FF and PagoPendiente = @barra Order by Fecha"
        comados2.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
        comados2.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))
        comados2.Parameters.AddWithValue("@Barra", UCProveedores.Text)