ขึ้นเตือน Incorrect syntax near the keyword 'WHERE'.

Protected Sub btnedit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnedit.Click
        Dim strConn As String
        strConn = "Data Source=HOME-EE71C2E7FA;Initial Catalog=NewActingrfunDB;User ID=sa"

        Dim sqlorder As String = "UPDATE neworder SET oid='" & lbloid.Text & "'," & _
                                    " odate= '" & lbldate.Text & "'," & _
                                    " ouname= '" & txtuname.Text & "'," & _
                                    " ouadd= '" & txtuadd.Text & "'," & _
                                    " outel= '" & txtutel.Text & "'," & _
                                    " oumail= '" & txtumail.Text & "'," & _
                                    " oushipadd= '" & txtshipadd.Text & "'," & _
                                    "WHERE oid ='" & lbloid.Text & "'"

        Dim Conn As New Data.SqlClient.SqlConnection(strConn)
        Conn.Open()
        Dim com As New Data.SqlClient.SqlCommand(sqlorder, Conn)
        Dim row As Integer
        row = com.ExecuteNonQuery()

        Conn.Close()

        Conn = Nothing
        If row >= 0 Then
            lblstatus.Text = "--- edit " & row & " row--- "
        End If
        displaydatafromdb()

        lblstatus.Visible = True
        btnedit.Visible = False
        btncancle.Visible = False