Try
            cn.Open()
            With cn.CreateCommand()
                .CommandText = "UPDATE Anlagenbuchhaltung SET " & _
                "AufrufnameAB = '" & txtAufrufname.Text & "', " & _
                "ProgrammaufrufAB = '" & txtProgrammaufruf.Text & "' " & _
                "WHERE AufrufnameAB = " _
                & DSNummer(lstAnzeige.SelectedIndex)
                .ExecuteNonQuery()
                .Dispose()
            End With
 
            cn.Close()
        Catch ex As Exception
 
        End Try

EALA FREYA FRESENA