problema kon sql y vb.net(!!rarisimo)

[Asezin0]

bueno....gracias por su apreciacion
aki les envio el script

<script runat="server">
dim connec As sqlconnection
sub page_load(Sender As Object, e As Eventargs)
connec = new sqlconnection("server=ANT1-WUTBIS8994; database=Net_server; user id=sa; trusted_connection=false;")
connec.open()
end sub
Dim savePath As String = "C:\inetpub\wwwroot\documentos\" 'kreo el string donde guardo el archivo
Sub Upload_Click(Sender As Object, e As EventArgs)
dim mycommand As sqlcommand
dim cmd As String="insert into material(ramo,archivo,tipo )values(@opcion,@nombre,@extension)"
mycommand = new sqlcommand(cmd,connec)
mycommand.Parameters.Add(New SqlParameter("@opcion", SqlDbType.varChar,20 ))
mycommand.Parameters("@opcion").Value = opcion.SelectedItem.text
mycommand.Parameters.Add(New SqlParameter("@nombre", SqlDbType.nvarChar,50))
mycommand.Parameters("@nombre").Value = nombre.Text
mycommand.Parameters.Add(New SqlParameter("@extension", SqlDbType.nvarChar, 50))
mycommand.Parameters("@extension").Value = extension.Text

Dim postedFile = uploadedFile.PostedFile ' kabio a postedFile
If Not (postedFile Is Nothing) Then

Dim filename As String = Path.GetFileName(postedFile.filename)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
postedFile.SaveAs(savePath & filename)
'envio datos de proceso a la etiketa mensaje
mensaje.Text = postedFile.Filename & " subiendo" & _
"<br>content type: " & contentType & _
"<br>content length: " & contentLength.ToString()


connec.close()
End If

End Sub

</script>

espero k me puedan ayudar
como les digo error no manda ninguno incluyendo debug="true"
sube el archivo pero no registra en la DB

gracias

Asezin0