خطأ عند تحديث حفظ جدول بقاعدة من خلال الفيجوال بيسك

خطأ

ora-01036 illegal variable name/number

الكود

Try

            Dim con As New OracleConnection
            con.ConnectionString = "Persist Security Info=False;User ID=manal;password=manal;Data Source=xe"
            con.Open()
            Dim cmd As New OracleCommand
            cmd.CommandType = CommandType.Text
            cmd.Connection = con

            'cmd.CommandText = "update tableedges set distance=:1 where fileno=:2 and edgeNo=:3"
            ' cmd.CommandText = "update tableedges"

            cmd.CommandText = "update tableedges set edgeName=:@EdgeName and node1No=: @node1No" & _
                  " and node2No=:  @node2No and distance=: @edgeDistance where edgeNo =: @EdgeNum and fileno =: @FileNum"


            cmd.Parameters.Add("@EdgeNum", OracleDbType.Int32).Value = ed.ped_ID
            cmd.Parameters.Add("@EdgeName", OracleDbType.Varchar2).Value = ed.ped_Name
            cmd.Parameters.Add("@node1No", OracleDbType.Int32).Value = ed.pnd1
            cmd.Parameters.Add("@node1No", OracleDbType.Int32).Value = ed.pnd2
            cmd.Parameters.Add("@edgeDistance", OracleDbType.Double).Value = ed.pdistance
            cmd.Parameters.Add("@FileNum", OracleDbType.Int32).Value = FN


            Dim success As Boolean

            If cmd.ExecuteNonQuery() = 1 Then
                success = True
            Else
                success = False
            End If

            cmd.Dispose()
            con.Close()
            con.Dispose()
            Return success
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

طبعا لو كتبت جملة update بالطريقة ادناه ما يظهر هذا الخطأ، بس انا اريد احدث كل حقول الجدول

cmd.CommandText = "update tableedges set distance=:1 where fileno=:2 and edgeNo=:3"