Update Command Syntax ...

Hi here's a bit of code. What am I doing wrong here?  Visual Studio isn't even accepting the Set word on line 56. It deletes it everytime.  What am I doing wrong here? Why is Visual studio putting the parenthese around the table name in 55? I generated an update query for my Websitetableadapter. Here it is:

UPDATE [tblWebSite] SET [Rating] = @Rating, WHERE (([WebSiteID] = @Original_WebSiteID))

How do I use this to update the Rating column after I've done my calculation below?



1    Imports RatingsTableAdapters
2   
3   
4    Partial Class admin_ratings
5        Inherits System.Web.UI.Page
6   
7        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
8            Dim I As Integer = 0
9            Dim J As Integer = 0
10           Dim Rating As Integer
11           Dim Rate As Decimal
12           Dim tblwebsiteAdapter As New tblWebSiteTableAdapter
13           Dim tblWebsite As ratings.tblWebSiteDataTable
14           tblWebsite = tblwebsiteAdapter.GetData()
15           For Each tblwebsiteRow As ratings.tblWebSiteRow In tblWebsite
16               Rate = 0
17               Dim tblLinkAdapter As New tblLinkTableAdapter
18               Dim tblLink As ratings.tblLinkDataTable
19               Dim tblLinkTot As ratings.tblLinkDataTable
20               tblLink = tblLinkAdapter.GetSuccessfulExchanges(tblwebsiteRow.WebSiteID)
21               tblLinkTot = tblLinkAdapter.GetTotalLinks(tblwebsiteRow.WebSiteID)
22               For Each tbllinkRow As ratings.tblLinkRow In tblLink
23                   If tbllinkRow.LinkID < 1 Then
24                       I = 0.1
25                   Else : I = I + 1
26                   End If
27               Next
28               If I <> 0 Then
29                   For Each tbllinktotrow As ratings.tblLinkRow In tblLinkTot
30                       If tbllinktotrow.LinkID < 1 Then
31                           J = 0.1
32                       Else : J = J + 1
33                       End If
34                   Next
35               End If
36               If I <> 0 And J <> 0 Then
37  
38                   Rate = I / J
39                   If Rate <= 0.3 Then
40                       Rate = 0
41                   End If
42                   If Rate <= 0.5 Then
43                       Rate = 1
44                   End If
45                   If Rate <= 0.65 Then
46                       Rate = 2
47                   End If
48                   If Rate <= 0.75 Then
49                       Rate = 3
50                   End If
51               End If
52  
53               Response.Write(tblwebsiteRow.WebSiteID & " " & tblwebsiteRow.SiteURL & " Rating: " & Rate & "54               I = 0
55               J = 0
56               Update(tblWebsite)
57               Rating = Rate
58               where(tblwebsiteRow.WebSiteID <> 0)
59           Next
60       End Sub
61   End Class