SQL = "UPDATE members " & _
         "SET username = '" & txtUsername.Text.Trim() & "', " & _
         "password = '" & txtPassword1.Text.Trim() & "', " & _
         "first_name = '" & txtFirstName.Text.Trim() & "', " & _ 
         "last_name = '" & txtLastName.Text.Trim() & "', " & _
         "email = '" & txtEmail.Text.Trim() & "'" & _
         "WHERE first_name = " & Session("first_name") & _
         "AND last_name = " & Session("last_name") & ""

' Check if connection to DB is already open
If MyConn.State = ConnectionState.Closed Then
    MyConn.Open()
End If

Dim MyCmd As New OleDbCommand(SQL, MyConn)

' Try/Catch...in case DB error
Try
    MyCmd.ExecuteNonQuery()
    MyConn.Close()
    MyConn.Equals("")

    Response.Redirect("default.aspx")

Catch ex As Exception
    profile_error.Text = SQL 
    profile_error.Style("Color") = "red"
End Try