insert con parametros

[seeweed]

Esto es lo que he aplicado en el code de mi aplicación, soy bastante novato y estoy seguro de que no lo hize bien, además, las primeras líneas aparecen subrayadas en verde indicando el siguiente mensaje: "variable local sin utilizar"

Código:

 Sub Nuevo()

        Dim classes, idclass, naime, day, hours, teacher, groupp, subjects, classroom As String
        classes = "Insert into classes(idclass, naime, day,hours, teacher, groupp,subjects, classroom)values(@idclass, @naime, @day,@hour,@teacher,@groupp,@subjects,@classroom)"
        Dim cmd As New OleDb.OleDbCommand(classes, cn)

        cmd.Parameters.AddWithValue("idclass", cbokidclass.Text)
        cmd.Parameters.AddWithValue("naime", txtname.Text)
        cmd.Parameters.AddWithValue("day", cbokday.Text)
        cmd.Parameters.AddWithValue("hours", cbokhour.Text)
        cmd.Parameters.AddWithValue("teacher", cbokteacher.Text)
        cmd.Parameters.AddWithValue("groupp", cbokgroup.Text)
        cmd.Parameters.AddWithValue("subjects", cboksubject.Text)
        cmd.Parameters.AddWithValue("classroom", cbokroom.Text)

        cn.Open()
        cmd.ExecuteNonQuery()
        cn.Close()
    End Sub

¿Qué correción debo hacer?