Conversion from string "ProfileID = " to type 'Double' is not valid on UPDATE line

[KevinFynn]

dataAdapter2.Fill(ds2, "USERS")
Dim dataTable2 As DataTable = ds2.Tables("USERS")
Dim UserID As Long = CLng(dataTable2.Rows(0)(0))
Dim UserDesc As String = dataTable2.Rows(0)(1)
Dim UserEnabled As Boolean = dataTable2.Rows(0)(2)
Dim UserPassword As String = dataTable2.Rows(0)(3)
Dim UserProfileId As Long = CLng(dataTable2.Rows(0)(4))
Dim UserEmailAddress As String = dataTable2.Rows(0)(5)
Dim UserMobileNumber As String = dataTable2.Rows(0)(6)
Dim UserHomeNumber As String = dataTable2.Rows(0)(7)
Dim UserOfficeNumber As String = dataTable2.Rows(0)(8)
Dim UserLGASuburb As Long = CLng(dataTable2.Rows(0)(9))
Dim UserRGACity As Long = CLng(dataTable2.Rows(0)(10))
Dim UserState As Long = CLng(dataTable2.Rows(0)(11))
Dim UserPostalCode As String = dataTable2.Rows(0)(12)
Dim UserlastUpdatingDate As String = dataTable2.Rows(0)(13)
Dim UserDeletionDate As String = dataTable2.Rows(0)(14).ToString
Dim NoofRowsinTable1 As Integer = dataTable2.Rows.Count
Dim newpassword As String = Trim(Me.TextBox5.Text)
dataAdapter2.UpdateCommand = conn2.CreateCommand()
dataAdapter2.UpdateCommand.CommandText = _
"UPDATE Users SET " + _
" DESC = " & UserDesc & " Enabled = " & UserEnabled & " Password = " & newpassword & " " & + _
"ProfileID = " & UserProfileId & " ContactEmailAddress = " & UserEmailAddress & " " & + _
"ContactHomeNumber = " & UserHomeNumber & " ContactOfficeNumber = " & UserOfficeNumber & " " & + _
"ContactLGASuburb = " & UserLGASuburb & " ContactRGACity = " & UserRGACity & " " + _
"ContactState = " & UserState & "ContactPostalCode = " & UserPostalCode & " " & + _
" LastUpdatingDate = " & UserlastUpdatingDate & " " + _
"DeletionDate = " & UserDeletionDate & " WHERE ID = " & UserID & ";"
Dim NoofRowsinTable2 As Integer = dataTable2.Rows.Count
dataAdapter2.Update(ds2, "Users")
ds2.AcceptChanges()