Dim anz As Integer
        Dim fi As Integer
        cmd.CommandText = "Select Filmindex from Videoliste where Titel='" & _
          titel & "'"
        readerdb = cmd.ExecuteReader
        readerdb.Read()
        fi = CInt(readerdb("Filmindex"))
        readerdb.Close()
        'cmd.CommandText = "Select Count(Filmindex) from Videoliste where" & _
          "Filmindex= " & fi
        cmd.CommandText = "Select Count(Filmindex) from Videoliste where" & _
        "Filmindex=?"
        cmd.Parameters.AddWithValue("@filmindex", fi)
        anz = CInt(cmd.ExecuteScalar()) ' soll eigentlich anz= 2, ist deinen 
        ' beiden Fällen aber 
                                          jeweils 1
 
 
        Return anz & ";" & fi

Gruss Caddy