SQL error

[menyki]

here is an input code i wrote to input data from the user interface to database in access. error occured when i tried to run the problem. the error messages are as follow.

2. SqlCommand is not defined.


( text )

Private Sub submitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submitButton.Click
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()
 
ObjCmd = 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
 
 
        Objbtn.ExecuteNonQuery()
 
 
        Objconn.Close()
    End Sub

[TRScheel]

Instead of:

ObjCmd = New SqlCommand(....)
 

try:

Dim ObjCmd as SqlCommand = new SqlCommand(...)