Pues mira, como no proporcionas ni el tipo de error, ni la linea, ni nada, por el momento solo te puedo decir que tienes un error en la linea:
Código:
conn.Execute "INSERT INTO ratings(rating, ip, cdId) VALUES(" & rating & ", '" & visitorIP & "', " & cdId & ")"
ya que segun la tabla "ratings" que describes al final, el campo ip es numérico, y tú lo estas tratando de meter como texto. Pruebalo así:
Código:
conn.Execute "INSERT INTO ratings(rating, ip, cdId) VALUES(" & rating & ", " & visitorIP & ", " & cdId & ")"
sin las comillas simples.