undefined SqlCommand

[menyki]

i hv done the correction as i was directed here but the Sqlcommand is still not defined. is still underlined with red. Below is the code again. pls i need help.
the particular SqlComand is on bold.

Dim Objconn As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector        y|\chiscoTransport.mdb;Integrated Security=True;Connect Timeout=30;User Instance=True")
        Objconn.Open()
 
        Dim ObjCmd As SqlCommand = New SqlCommand("INSERT INTO seatReservation (vehicleID, pname, deptureT, trvllingft, pssngerAD, phoneNo, fare, time, exptdjd, date) VALUES (@vehicleID, @pname, @deptureT, @trvllingft, @pssngerAD, @phoneNo, @fare, @time, @exptdjd, @date)", Objconn)
 
 
        ObjCmd.Parameters.Add("@vehicleID", Data.SqlDbType.VarChar).Value = vehicleIDComboBox.Text
        ObjCmd.Parameters.Add("@pname", Data.SqlDbType.Text).Value = pnameTextBox.Text
        ObjCmd.Parameters.Add("@deptureT", Data.SqlDbType.Text).Value = deptureTComboBox.Text
        ObjCmd.Parameters.Add("@trvllingft", Data.SqlDbType.Text).Value = trvllingftComboBox.Text
        ObjCmd.Parameters.Add("@pssngerAD", Data.SqlDbType.Text).Value = pssngerADTextBox.Text
        ObjCmd.Parameters.Add("@phoneNo", Data.SqlDbType.Int).Value = phoneNoTextBox.Text
        ObjCmd.Parameters.Add("@fare", Data.SqlDbType.Int).Value = fareTextBox.Text
        ObjCmd.Parameters.Add("@time", Data.SqlDbType.Text).Value = timeTextBox.Text
        ObjCmd.Parameters.Add("@exptdjd", Data.SqlDbType.Text).Value = exptdjdTextBox.Text
        ObjCmd.Parameters.Add("@date", Data.SqlDbType.Text).Value = dateTextBox.Text
 
 
        ObjCmd.ExecuteNonQuery()
 
 
        Objconn.Close()