Inserting Into A SQL Error

hey guys I got an error when trying to insert an SQL statement.

basically it when I try to insert into a unique ID column I think

error is:

Compiler Error Message: BC30516: Overload resolution failed because no accessible 'New' accepts this number of arguments.

Source Error:







Line 51: objCmd = New SQLCommand(strSQL1, SqlConn)
Line 52:
Line 53: objCmd.Parameters.Add(New SqlParameter("@CustomerID"))
Line 54: objCmd.Parameters("@CustomerID").Value = UserID
Line 55: objCmd.Parameters.Add(New SqlParameter("@CompanyID", _
Source File: C:Prototypeofficial1html icketsystem.aspx    Line: 53

 



Dim strConnection as string = ConfigurationManager.ConnectionStrings("GeolinkSupportdb").connectionstring

Dim sqlConn = New SqlConnection(strConnection)

dim mu = Membership.GetUser()

dim UserID = mu.ProviderUserKey.ToString()



Sub Page_Load(sender as Object, e as EventArgs)



If Not IsPostBack() then

'1. Create a connection

Dim sqlConn = New SqlConnection(strConnection)

'2. Create the command object, passing in the SQL string

Const strSQL as String = "SELECT IssueID, IssueName FROM Support_Issue;"

sqlConn.Open()

Dim myCommand as New SqlCommand(strSQL, sqlConn)

'3. Create the DataReader



Dim objDR as SqlDataReader

objDR = myCommand.ExecuteReader(CommandBehavior.CloseConnection)



'Databind the DataReader to the listbox Web control

TicketIssue.DataSource = objDR

TicketIssue.DataTextField = "IssueName"

TicketIssue.DataValueField = "IssueID"

TicketIssue.DataBind()



'Add a new listitem to the beginning of the listitemcollection

TicketIssue.Items.Insert(0, new ListItem("-- Choose an Issue --"))

objDR.close()

sqlConn.Close()



'assign fullname from profile and company ID to the text fields.

FullName.Text = profile.firstName & " " & profile.lastName

Company.Text = profile.CompanyID

end if

End Sub

Sub Submit(sender as Object, e as EventArgs)

Dim rightNow as DateTime = DateTime.Now

Dim strSQL1 = "insert into Support_Ticket (CustomerID, CompanyID, Subject, Problem, Open_Date, IsClosed) Values (@CustomerID, @CompanyID, @Subject, @Problem, @OpenDate, @IsClosed);"

Dim objCmd As SqlCommand

objCmd = New SQLCommand(strSQL1, SqlConn)



objCmd.Parameters.Add(New SqlParameter("@CustomerID", _

SqlDbType.uniqueidentifier))

objCmd.Parameters("@CustomerID").Value = UserID

objCmd.Parameters.Add(New SqlParameter("@CompanyID", _

SqlDbType.uniqueidentifier))

objCmd.Parameters("@CompanyID").Value = profile.CompanyID

objCmd.Parameters.Add(New SqlParameter("@Subject", _

SqlDbType.varchar, 50))

objCmd.Parameters("@Subject").Value = Subject.Text

objCmd.Parameters.Add(New SqlParameter("@Problem", _

SqlDbType.ntext))

objCmd.Parameters("@Problem").Value = TicketInfo.Value

objCmd.Parameters.Add(New SqlParameter("@Open_Date", _

SqlDbType.DateTime))

objCmd.Parameters("@Open_Date").Value = rightNow.ToString("dd/MM/yyyy , HH:mm:ss")

objCmd.Connection.Open()

objCmd.Parameters.Add(New SqlParameter("@IsClosed", _

SqlDbType.bit))

objCmd.Parameters("@IsClosed").Value = 0

' Test whether the new row can be added and display the

' appropriate message box to the user.

Try

Catch ex As SqlException

objCmd.ExecuteNonQuery()

Message.InnerHtml = "<b>Record Added</b> to Database<br>"



If ex.Number = 2627 Then

Message.InnerHtml = "ERROR: A record already exists with " _

& "the same primary key"

Else



Message.InnerHtml = "ERROR: Could not add record, please " _

& "ensure the fields are correctly filled out"

Message.Style("color") = "red"



End If

End Try

objCmd.Connection.Close()

end sub

 

the database looks like this

TicketID             uniqueidentifier      
CustomerID        uniqueidentifier       
Subject               varchar(50)               
Problem              ntext                          
Open_Date        datetime                   
IsClosed             bit                              
Closed_Date      datetime                   
DeptID               uniqueidentifier     
CompanyID       varchar(50)