Procedure Has No Parameters Error Constantly

Hi, I've been trying to figure out this error message I'm getting.  The exact error message is: " Procedure addservicerequest has no parameters and arguments were supplied." and this is applied to a SQL Command, but what confuses me is that I've got parameters already created and added.  Is there any advice to help me out with this problem?
 Here's the code for reference:
 1 Dim sqlparadate As New sqlparameter
2 Dim sqlparacompany As New SqlParameter
3 Dim sqlparalocation As New SqlParameter
4 Dim sqlparacontact As New SqlParameter
5 Dim sqlparaphone As New SqlParameter
6 Dim sqlparadetails As New SqlParameter
7 Dim sqlparaso As New SqlParameter
8 Dim sqlparadrive As New SqlParameter
9 Dim sqlparawork As New SqlParameter
10 Dim sqlparaback As New SqlParameter
11 Dim sqlparaproblem As New SqlParameter
12
13 Dim sqlcon As New SqlConnection
14 Dim sqlinsert As New SqlCommand("addservicerequest", sqlcon)
15
16 'txttest.Text = caldateofservice.SelectedDate
17 If sqlcon.State = Data.ConnectionState.Closed Then
18 sqlcon.ConnectionString = "***"
19 sqlcon.Open()
20 End If
21
22 sqlinsert.CommandType = Data.CommandType.StoredProcedure
23 'sqlinsert.CommandText = "addservicerequest"
24 'sqlinsert.Connection = sqlcon
25
26 With sqlparadate
27 .SqlDbType = Data.SqlDbType.SmallDateTime
28 .Direction = Data.ParameterDirection.Input
29 .ParameterName = "@dateofservice"
30 .Value = caldateofservice.SelectedDate.ToString
31 End With
32 sqlinsert.Parameters.Add(sqlparadate)
33
34 With sqlparacompany
35 .SqlDbType = Data.SqlDbType.NVarChar
36 .Direction = Data.ParameterDirection.Input
37 .ParameterName = "@company"
38 .Value = txtcompany.Text
39 End With
40 sqlinsert.Parameters.Add(sqlparacompany)
41
42 With sqlparalocation
43 .SqlDbType = Data.SqlDbType.NVarChar
44 .Direction = Data.ParameterDirection.Input
45 .ParameterName = "@location"
46 .Value = txtlocation.Text
47 End With
48 sqlinsert.Parameters.Add(sqlparalocation)
49
50 With sqlparacontact
51 .SqlDbType = Data.SqlDbType.NVarChar
52 .Direction = Data.ParameterDirection.Input
53 .ParameterName = "@contactname"
54 .Value = txtcontactname.Text
55 End With
56 sqlinsert.Parameters.Add(sqlparacontact)
57
58 With sqlparaphone
59 .SqlDbType = Data.SqlDbType.NVarChar
60 .Direction = Data.ParameterDirection.Input
61 .ParameterName = "@contactphone"
62 .Value = txtcontactphone.Text
63 End With
64 sqlinsert.Parameters.Add(sqlparaphone)
65
66 With sqlparadetails
67 .SqlDbType = Data.SqlDbType.NVarChar
68 .Direction = Data.ParameterDirection.Input
69 .ParameterName = "@details"
70 If ddldetails.SelectedValue = "Other" Then
71 .Value = txtreason.Text
72 Else
73 .Value = ddldetails.SelectedValue
74 End If
75 End With
76 sqlinsert.Parameters.Add(sqlparadetails)
77
78 With sqlparaso
79 .SqlDbType = Data.SqlDbType.NVarChar
80 .Direction = Data.ParameterDirection.Input
81 .ParameterName = "@serviceorder"
82 .Value = txtserviceorder.Text
83 End With
84 sqlinsert.Parameters.Add(sqlparaso)
85
86 With sqlparadrive
87 .SqlDbType = Data.SqlDbType.NVarChar
88 .Direction = Data.ParameterDirection.Input
89 .ParameterName = "@drivetime"
90 .Value = ddldrivetime.SelectedValue
91 End With
92 sqlinsert.Parameters.Add(sqlparadrive)
93
94 With sqlparawork
95 .SqlDbType = Data.SqlDbType.NVarChar
96 .Direction = Data.ParameterDirection.Input
97 .ParameterName = "@worktime"
98 .Value = ddlworktime.SelectedValue
99 End With
100 sqlinsert.Parameters.Add(sqlparawork)
101
102 With sqlparaback
103 .SqlDbType = Data.SqlDbType.NVarChar
104 .Direction = Data.ParameterDirection.Input
105 .ParameterName = "@backhome"
106 .Value = ddlbackhome.SelectedValue
107 End With
108 sqlinsert.Parameters.Add(sqlparaback)
109
110 With sqlparaproblem
111 .SqlDbType = Data.SqlDbType.NVarChar
112 .Direction = Data.ParameterDirection.Input
113 .ParameterName = "@typeproblem"
114 .Value = ddlproblem.SelectedValue
115 End With
116 sqlinsert.Parameters.Add(sqlparaproblem)
117
118 sqlinsert.ExecuteNonQuery()
119
120 sqlcon.Close()

 Specifically it occurs on line 118.
 
Thanks