Excepción

[Aquaventus]

Hola salvacadiz tu error esta en la consulta :

Código vb.net:

Dim cadena, elegida As String
Dim num_sube, num_baja As Integer
cmd = New OleDbCommand()
cmd.Connection = conn
elegida = ListBox1.Text
cadena = ListBox1.Text
Select Case ComboBox1.Text
     Case "Nombre", "Pista"
          cadena = TextBox1.Text
     Case "Derecha", "Reves", "Volea", "Dejada", "Velocidad", "Resistencia", "Servicio", "Potencia", "Forma"
          num_sube = ComboBox2.Text
          num_baja = ComboBox3.Text
End Select
 
If (ComboBox1.Text = "Nombre") Then
     cmd.CommandText = "UPDATE TablaJugadores SET Nombre = '" & cadena & "' WHERE Nombre = '" & elegida & "'"
     conn.Open()
     Dim resultado As Integer = cmd.ExecuteNonQuery()
     conn.Close()
     cmd.Parameters.Clear()
End If